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This  report  docwants  the  Fleet  Readiness  Training  (FRT)  Planning  nodal 
developed  as  part  of  tha  third  phase  of  the  Integrated  Facilities  Requlreaents  Study 
(IFRS). 


In  Phase  1,  two  analytic  subaodels  were  developed.  The  first,  a Logistics 
Support  Raqulrenents  Generator,  estlaates  personnel,  aircraft,  and  fuel  requlreaents 
for  each  phase  of  undergraduate  pilot  training  at  the  Naval  Air  Training  CoMand 
(MATRACON).  The  second,  a Pacing  Facilities  Requlreaents  subaodel,  calculates 
facility  requlreaents  for  each  phase  of  training. 


Tha  purposa  of  the  Phase  II  study  wss  to  develop  s prellalnary  total  systeas 
IFRS  asnageasnt  planning  tool  (Including  the  two  subaodels  developed  In  Phase  I,  as 
well  as  Bess  Losding,  Fscllltlss  Iscess/Deflclency,  sod  Totsl  Cost  subaodels),  and 
autoaats  tbs  aodsl  so  tbst  It  provides  quick,  sccurste,  end  relsvsnt  Inforastlon 
for  use  in  the  decision-asking  process.  This  Ststic  IFRS  aodel  hss  been  In  con- 
tinuous operstion  sines  Nsreh  1970. 
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Xt«a  #13  (Abstract)  eontimasd 


. Dynaalc  planning  tool 

. Optimisation  modal 

Float  laadlnass  Training  Squadron  planning  tool. 

Tha  Opnamlc  planning  tool  slmulataa  the  undargraduata  pilot  training  program 
on  a weakly  basis  whereas  the  Static  IFRS  assumes  an  even  annual  flow  of  students. 
The  Optimisation  model  has  two  segnanta  - a FTR  Maxlmlser  that  calculates  the 
maximum  annual  pilot  training  rate  (FTR)  posslhle  for  a given  facilities  In- 
ventory and  a MCON  Mlnlmlser  that  calculates  the  minimum  facility  coat  phase-to-base 
asslgnmant  for  a daslrad  FTR.  Tha  Float  Raadlness  Training  (FRT)  model  provides 
planning  Information  for  the  readlneas  training  squadrons  and  la  designed 
similarly  to  tha  Static  IFRS  modal.  Tha  Fhase  111  doctaantatlon  consists  of  tha 
following  four  reports: 

. The  Intearated  Facilities  Raqulrementa  Study 
(IFRS)  Phase  III.  <»I  TR  645 

. Development  of  the  Automated  Dynamic  Hodel  for 
the  Integrated  Facilities  Requirements  Study  (IFRS) 

Fhase  III.  ORl  TR  646 

. Development  of  the  Optimisation  Model  for  the 
Intesrated  Facilities  Requirements  Study  (IFRS) 

Fhase  III.  ORl  TR  647 

. Development  of  the  Fleet  Air  Readiness  Tralnlna 
Model  for  the  Intesrated  Facilities  Requirements 
Study  (IFRS)  Phase  III.  ORl  TR  648. 

This  report  documents  the  Fleet  Readiness  Training  (FRT)  Model.  Volume  I 
contains  a Sumomry  of  the  FRT  model  and  the  functional  relationships.  Appendix 
B contains  the  present  squadron  planning  factors  and  la  under  separate  cover  In 
Volume  II.  Volume  III  contains  the  User's  Manual  stating  how  to  use  the  planning 
tool.  The  Frogrammer's  Manual  la  contained  In  Volume  XV. 
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This  report  documents  the  Fleet  Readiness  Training  (FRT)  planning 
model  developed  as  part  of  the  third  phase  of  the  Integrated  Facilities  Require- 
ments Study  (IFRS) , It  has  been  prepared  for  the  Systems  Analysis  Division  of 
the  Office  of  the  Assistant  Commander  for  Facilities  Planning  (Code  20),  Naval 
Facilities  Engineering  Command  (NAVFAC),  Department  of  the  Navy,  as  part  of 
Contract  N00025-67-C-0031  (NBy-78672)  awarded  to  Operations  Research,  Inc., 
in  June  1970. 

In  Phase  I,  two  analytic  submodels  were  developed.  The  first,  a 
Logistics  Support  Requirements  Generator,  estimates  personnel,  aircraft,  and 
fuel  requirements  for  each  phase  of  undergraduate  pilot  training  at  the  Naval 
Air  Training  Command  (NATRACOM).  The  second,  a Pacing  Facilities  Require- 
ments submodel,  calculates  facility  requirements  for  each  phase  of  training. 

The  purpose  of  the  Phase  II  study  was  to  develop  a preliminary  total 
systems  IFRS  management  planning  tool  (including  the  two  submodels  devel- 
oped in  Phase  I,  as  well  as  Base  Loading,  Facilities  Excess/Deficiency,  and 
Total  Cost  submodels),  and  automate  the  model  so  that  it  provides  quick, 
accurate,  and  relevant  information  for  use  in  the  decision-making  process. 

This  Static  IFRS  model  has  been  in  continuous  operation  since  March  1970. 

The  purpose  of  the  Phase  HI  study  was  to  refine  the  Static  IFRS 
model  and  to  expand  the  IFRS  concept  by  developing  three  additional  planning 
tools  for  use  by  Navy  decision-makers  as  follows: 

• Dynamic  planning  tool 

a Optimization  model 

• Fleet  Readiness  Training  Squadron  planning  tool. 
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The  Dynamic  planning  tool  simulates  the  undergraduate  pilot  training 
program  on  a weekly  basis  whereas  the  Static  IFRS  assumes  an  even  annual 
flow  of  students.  The  Optimization  model  has  two  segments—a  PTR  Maximizer 
that  calculates  the  maximum  annual  pilot  training  rate  (PTR)  possible  for  a 
given  facilities  inventory  and  a MOON  Minlmizer  that  calculates  the  minimum 
facility  cost  phase-to-base-assignment  for  a desired  PTR.  The  Fleet  Readiness 
Training  (FRT)  model  provides  planning  information  for  the  readiness  training 
squadrons  and  is  designed  similarly  to  the  Static  IFRS  model.  The  Phase  III 
documentation  consists  of  the  following  four  reports: 

• The  Integrated  Facilities  Requirements  Study 
(IFRS)  Phase  III.  ORI  TR  645 

• Development  of  the  Automated  Dynamic  Model  for 
the  Integrated  Facilities  Requirements  Study  (IFRS) 

Phase  III.  ORI  TR  646 

• Development  of  the  Optimization  Model  for  the 
Integrated  Facilities  Requirements  Study  (IFRS) 

Phase  III.  ORI  TR  647 

• Development  of  the  Fleet  Air  Readiness  Training 
Model  for  the  Integrated  Facilities  Requirements 
Study  (IFRS)  Phase  III.  ORI  TR  648. 

This  report  documents  the  Fleet  Readiness  Training  (FRT)  model. 

Volume  I contains  a summary  of  the  FRT  model  and  the  functional  relation- 
ships. Appendix  B contains  the  present  squadron  planning  factors  and  is  under 
separate  cover  in  Volume  II.  Volume  III  contains  the  User's  Manual  stating  how 
to  use  the  planning  tool.  The  Programmer's  Manual  is  contained  in  Volume  IV. 

These  IFRS  models  were  developed  and  programmed  by  the  staff  members 
of  the  Economic  Analysis  Division  of  Operations  Research,  Inc.,  under  the 
direction  of  Dr.  William  J.  Leinlnger,  vice  ixesident  and  division  director 
and  Thomas  N.  Kyle,  program  director.  The  project  team  members  included 
R.  J.  Craig,  M.  C.  Fisk,  W.  Liggett,  F.  McCoy,  R.  Messalle,  and  R. 

Yockman. 

Mr.  Dennis  Whang  of  the  Systems  Analysis  Division  of  Facilities  Plan- 
ning was  contract  monitor  for  NAVFAC.  In  addition,  valuable  assistance  was 
provided  by  many  other  Navy  personnel  including,  in  particular,  those  in  the 
Office  of  the  Staff  Civil  Engineer  and  the  Training/Plans  Division  of  the  Naval 
Operations,  and  in  the  Systems  Analysis  Division  of  NAVFAC.  The  authors 
gratefully  acknowledge  the  contributions  made  by  all  of  these  people  to  the 
development  of  the  IFRS  models . 


I 

1 

1 

1 

1 

I 

I 

I 

.1 

1 

I 

1 

1 

1 

1 

I 

I 

I 

I 


d 


11 


TABLE  OF  CONTENTS 


Page 

FOREWORD I 

UST  OF  FIGURES v 

LIST  OF  TABLES vii 

I.  INTRODUCTION 1 

ORGANIZATION  OF  MANUAL 2 

II.  PROGRAM  CRAWM 7 

PROGRAM  DESCRIPTION 7 

in.  PROGRAM  CRAWH 13 

PROGRAM  DESCRIPTION 13 

SUBROUTINE  READSQ 14 

SUBROUTINE  NOYES I4 

SUBROUTINE  DATAIN 14 

VARIABLE  DICTIONARY I4 

IV.  PROGRAM  CRAWl 25 

PROGRAM  DESCRIPTION 25 

SUBROUTINE  SQUAD 26 

SUBROUTINE  NOYES 26 

SUBROUTINE  CHECK 26 

Ui 


( 


SUBROUTINE  CATOUT 26 

SUBROUTINE  CATMOD 26 

V.  PROGRAM  CRAW2 49 

SUBROUTINE  STUDENT 49 

SUBROUTINE  NOYES 50 

VARIABLES  AND  COMMON 50 

VI.  PROGRAM  CRAW3 61 

PROGRAM  DESCRIPTION 61 

SUBROUTINE  NAMSORT 61 

SUBROUTINE  GENLSR 62 

SUBROUTINE  SQDSUM 62 

VARIABLES  AND  COMMON 62 

Vn.  PROGRAM  XHUNT 81 

PROGRAM  DESCRIPTION 81 

SUBROUTINE  SUB 81 


Iv 


I 

I 

I 

I 

I 

I LIST  OF  FIGURES 

^ Page 


1.  Overall  Flow  Through  FRT  Model 4 

2.  Program  CRAWM  Flow  Chart 0 

3.  Program  CRAWH  Flow  Chart 15 

4.  Program  CRAWl  Flow  Chart 27 

5.  Program  CRAW2  Flow  Chart 51 

6.  Program  CRAW3  Flow  Chart 53 

7.  Program  XHUNT  Flow  Chart 83 


V 


4 


LIST  OF  TABLES 


Page 


1 . FRT  Model  Programs 3 

2.  Computer  Programs 5 

3.  Program  CRAWM  Variable  Dictionary 9 

4 . CRAWM  Program  Dictionary 11 

5.  Program  CRAWM  Listing 12 

6.  CRAWH  Program  and  Subroutine  Dictionary 19 

7.  Program  CRAWH  Variable  Dictionary 19 

8.  Program  CRAWH  Listing 20 

9.  CRAWl  Program  and  Subroutine  Dictionary 34 

10.  Program  CRAWl  Variable  Dictionary 35 

11.  Program  CRAWl  Listing 36 

12.  Program  CRAW2  Variable  Dictionary 55 

13.  CRAW2  Program  and  Subroutine  Dictionary 55 

14.  Program  CRAW2  Listing 56 

15.  Program  CRAW3  Variable  Dictionary 67 

16.  CRAW3  Program  and  Subroutine  Dictionary 69 

17.  Program  CRAW3  Listing 70 

18.  Program  XHUNT  Variable  Dictionary 85 

19.  XHUNT  Program  and  Subroutine  Dictionary 85 

20.  Program  XHUNT  Listing 86 

vll 


WOI^BUMUIiOT  PIUffiD  I 


I.  INTRODUCTION 


1.1  This  volume  describes  the  overall  system  characteristics  and  flow  for 
all  computer  programs  included  in  the  automated  Fleet  Readiness  Training  (FRT) 
model.  The  purpose  of  the  programmer's  manual  is  to  provide  the  verbal  des- 
cription, flow  charts,  variable  dictionary,  program  and  subroutine  dictionary, 
and  program  listing  for  each  of  the  computer  programs  that  constitute  the  auto- 
mated model  of  the  FRT.  This  programmer's  manual  provides  Navy  personnel 
with  the  information  required  to  understand  the  logic  of  the  programming  and 

to  make  changes  to  the  programs  as  necessary. 

1.2  The  FRT  programs  have  been  written  irrrfoRTRAN  for  use  on  a Gen- 
eral Electric  (GE)  635,  Mark  II,  time-sharing  computer  system.  It  is  assumed 
that  the  programmer  using  this  documentation  is  fully  acquainted  with  this 
system.-" 

1.3  Because  of  the  "in  core"  word  limitation  Imposed  by  the  GE  635  time- 
sharing computer,  the  FRT  model  is  comprised  of  five  different  computer  pro- 
grams. This  system  will  only  permit  a program  of  approximately  12,800  36-bit 
words  to  reside  within  the  computer  memory  at  any  one  time.  Since  the  total 


Converting  the  computer  programs  contr  Ined  in  the  automated  FRT  model 
for  use  on  other  FORTRAN  IV  systems  would  require  major  revisions  to 
each  individual  computer  program's  input  and  output,  due  to  a special 
feature  in  the  GE  time-sharing  FORTRAN  that  allows  unformatted  input 
and  output,  an  adaptation  of  a BASIC  language  feature.  The  authors  of 
the  FRT  computer  programs  utilized  this  feature,  when  practical,  to  pro- 
vide the  user  with  maximum  terminal  input  flexibility.  In  addition,  storage 
restrictions  might,  in  other  FORTRAN  IV  systems,  require  resegmenting  the 
FRT  system  so  maximum  program  storage  requirements  would  not  be 
violated. 
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FRT  model  Is  much  longer  than  this  limit  (approximately  21,000  36-blt  words 
In  the  unsegmented  version)'  It  was  necessary  to  use  hve  operating  programs. 
Table  1 lists  each  of  these  programs  and  their  source  and  compiled  names , 
lengths,  and  storage  units.  The  asterisk  In  the  sixth  character  in  the 
compiled  name  allows  these  programs  to  be  accessed  by  all  users  (with  certain 
restrictions)  having  similar  GE  user  numbers . 

1 . 4  Figure  1 shows  the  overall  flow  through  the  five  programs  In  the  FRT 
model.  Also  shown  are  the  various  data  files  either  read  or  written  during  the 
course  of  a run  through  all  the  computer  programs . A brief  description  of  all 
computer  programs  and  data  files  utilized  by  the  automated  FRT  model  is  pro- 
vided In  Table  2 . 

ORGANIZATION  OF  MANUAL 


1.5  The  remaining  portion  of  this  manual  describes  each  of  the  five  com- 
puter programs.  For  each  program,  a detailed  verbal  description,  flow  charts, 
variable  dictionary,  routine  dictionary  (briefly  describing  the  function  of  each 
main  program  and  its  subroutines) , and  program  listing  are  provided.  In  addi- 
tion, the  program  listing  for  the  utility  program  Is  included. 

1.6  Wherever  possible,  variable  names  were  selected  as  mnemonics.  For 
example,  in  CRAWM,  the  variable  LEVLSR  denotes  the  level  of  complexity  within 
the  LSR  Generator.  In  CRAW2,  the  variable  ICOSTFK)  denotes  the  (cost  per  flight 
hour),  etc. 
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TABLE  1 

FRT  MODEL  PROGRAMS 


Storage 


Name 

Length 

Units 

Source  Programs 

CRAWM 

1,588  characters 

2 

CRAWH 

5,288  characters 

5 

CRAWl 

14,796  characters 

12 

CRAW2 

5,196  characters 

5 

CRAW3 

11,728  characters 

10 

XHUNT 

2,300  characters 

2 

Compiled  Programs  and  Data  Files 

CRAWM* 

2,392  words 

2 

CRAWH* 

3,544  words 

6 

CRAWl* 

6,232  words 

14 

CRAW2* 

3,504  words 

5 

CRAW3* 

5,280  words 

11 

XHUNT* 

848  words 

3 

SQUAD*1 

36,184  characters 

29 

SQUAD*2 

40,104  characters 

32 

^ One  storage  unit  contains  1 , 260  characters . 
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TABLE  2 

COMPUTER  PROGRAMS 


Name 

Type 

P urpos  e/Fimctlon 

CRAWM 

Program 

Enters  level  of  complexity 
and  annual  data  for  mcxlel 

CRAWH 

Program 

Reads  in  all  squadron  names 
then  reads  in  all  data  for  the 
chosen  squadron 

CRAWl 

Program 

Allows  user  to  list  and  modify 
planning  factors 

CRAW2 

Program 

Accepts  throughput  data , cal- 
culates student  load,  starts 
category  summary  printout 

CRAW  3 

Program 

Computes  aircraft  and  Instructors 
required,  completes  printout  of 
category  summary  and  prints  out 
squadron  summary 

XHUNT 

Program 

Utility  program  to  list  parts  of 
data  files 

SQUAD*1 

Data  file 

Contains  squadron  planning 
factors 

SQUAD*2 

Data  file 

Contains  squadron  planning 
factors 

i 
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II.  PROGRAM  CRAWM 


i' 

PROGRAM  DESCRIPTION 

2.1  The  purpose  of  program  CRAWM  Is  to  ask  questions  1 and  2 and 
validate  the  responses. 

2.2  Program  CRAWM  Is  the  first  program  to  be  run  on  the  automated  FRT 
model.  It  may  also  be  entered  from  CRAW3  \Adien  the  user  chooses  to  return  to 
question  1 . 

2.3  The  first  thing  CRAWM  does  vthen  entered  is  Increment  IS(1)  by  1 . 

Wher  the  user  first  enters  the  program  from  the  terminal,  all  variables  are 
InlUaUzed  to  zero  by  the  Mark  H FC»TRAN  system.  Then,  if  IS(1)  » 1 (Indicating 
the  first  time  question  1 is  to  be  asked),  the  entire  question  Is  printed.  If 
IS(1)2  2 (Indicating  a return  from  program  CRAW3),a  new  heading,  the  run  number 
and  the  first  line  only  of  question  1 are  printed.  The  values  for  level  of  com- 
plexity (LEVLSR),  annual  training  weeks  (WPY) , and  annual  fly  days  (AFD)  are 
entered.  The  values  are  checked,  and  then  control  Is  transferred  to  program 
CRAWH. 
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I 2.4  A flow  chart  of  program  CRAWM  Is  shown  In  Figure  2 . Table  3 contains 

' ' the  variable  dictionary  of  program  CRAWM.  The  program  dictionary  is  provided 

In  Table  4 , and  the  program  listing  is  shown  In  Table  5 . 
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TABLE  3 
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PROGRAM  CRAWM  VARIABLE  DICTIONARY 
(All  are  located  in  common) 


Variable 

Name 

Dimension 

1 

Description 

lY 

1 ! 

Not  used 

ISW 

ISW=0 

ISW=1 

1 

Squadron  summary  print  option 
Print  squadron  summary 
Skip  squadron  summary 

LEVLSR 

1 

Level  of  complexity 

IS 

IS(1) 

IS{2) 

i 

7 

Indicators  for  other  parts  of  the  model 
The  number  of  times  question  1 has  been  asked 
Indicates  a return  from  question  8 
IS (3)  to  IS  (7)  not  used 

KILL 

1 

Not  used 

IBC 

1 

Not  used 

NO 

1 

Character  "N" 

YES 

1 

Character  "Y" 

SW 

2 

Not  used 

AFD 

1 

Annual  fly  days  per  year 

WPY 

1 

Training  weeks  per  year 

ALLSQD 

30,  2 

Names  of  Ith.  squadrons  in  data  files  (2  words , 8 
characters  permitted)* 

NFILEl 

1 

Number  of  squadrons  stored  on  data  file  SQUAD*  1 

NSQD 

1 

Total  number  of  squadrons  on  both  data  files 

SON  AM 

2 

Chosen  squadron  name 

NCAT 

1 

Number  of  categ<x*ie8  in  squadron 

F 

2,  10 

Squadron  personnel  data 

NAME 

2S,  3 

Name  of  training  category  I ( 3 words , 1 2 characters ) 

NPLA 

25,  3 

Name  of  aircraft  types  in  category  I,  J = l ,3* 

li 

n 
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TABLE  3 (Cont) 
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Variable 

Name 

Dimension 

Description 

NFUEL 

25.  3 

Fuel  type  for  category  I,  aircraft  type  J 

NAC 

25 

Number  of  aircraft  types  in  category  I (maximum  of  3) 

INSTMIX 

25,  9 

Instruction  mix  for  category  I (for  J ^ 1,2,3  first  air- 
craft type;  J = 4,5,6  second  aircraft  type,  etc.) 

AMO 

25,  3 

Enlisted  maintenance  personnel  per  aircraft  type  J 
in  category  I 

WX 

25,  3 

Percent  flyable  weather  for  aircraft  type  J in  category  I 

PHADUR 

25 

Duration  of  category  I (weeks) 

ATR 

25 

Attrition  rate  of  category  I 

ATP 

25 

Attrition  point  of  category  I 

GAS 

25,  3 

Fuel  consumption  rate  for  aircraft  type  J in  category  I 

COSTFH 

25,  3 

Cost  per  flight  hour  for  aircraft  type  J in  category  I 

FITOD 

25,  3 

Flight  instructor  tour  of  duty  for  aircraft  type  J in 
category  I (months) 

FITR 

25.  3 

Flight  instructor  training  time  for  aircraft  type  J 
in  category  I (months) 

ACFD 

25,  3 

Aircraft  flight  hours  per  day  for  aircraft  type  J, 
category  I 

ACHS 

25,  3 

Aircraft  flight  hours  required  per  student  output  in 
category  I on  aircraft  type  J 

FINU 

25,  3.  3 

Flight  instructor  utilization  (hours/day)  in  category  I , 
aircraft  type  J , instruction  type  K 

FINHS 

25,  3,  3 

Flight  instructor  hours  required  per  student  output 
in  category  I on  aircraft  type  J,  instruction  type  K 

RLSO 

25,  3,  3 

ACD/LSO/WST  ratio  in  category  I for  aircraft  type  J , 
instruction  type  K 

* 

I refers  to  row  dimension,  and  J refers  to  column  dimension. 

TABLE  5 

PROGRAM  CRAWM  USTING 


lOOC 

180 

140 

160C 

180 

800C 

880 

840 

860 

880 

300C 

380 

340 

360 

380 

400 

480 

440 

460 

480 

500 

580 

540 

540 

580 

600 

680 

640 

660 

680 

700 

780 

740 

760 

780 

800 

880 

840 

860 

880 

900 

980 


PROGRAHt  CRAVM  CHAIN  PROG) 

COHHON  IY*ISV«LEVLSR«IS(7)«KILL«IBC«N0«YES 
COHHON  SWC8>#APD«VPY#ALLSQD(30*8)«NF1LE1«NSQD 
- • • SQUADRON  VARIABLES  • - • 

COHHON  SQNAHC8>«NCAT«FC8#10> 

• - •CATAGORY  VARIABLES  • • • 

COHHON  NAME<8S*3)*NPLA<8S«3>«NFUELC85#3>«NAC(85)«INSTHIX(85«9) 
COHHON  AH0(85*3)«VXC85«3)«PHADURC85>«ATR(85>«ATPC85)« 
60ASC8S«3)«C0STFHC85«3)«FIT0DC85«3>«FITRC85«3>« 
4ACFD(85«3)«ACHS(85«3)«F1NU<8S*3»3)«FINHS(85«3*3>*RLS0(85«3*3) 

1S<1>-ISC1>«1 

KlLL-0 

IBC-0 

5 IFCISCn.EQ.DPRlNT  690 

IFCISCD.GT.DPRINT  693«ISC1> 

PRINT  700 

IFCISCn.EQ.DPRINT  701 
10  1NPUT*LEVLSR 

I F C LEVLSR >30# 30 « 80 
80  IFCL£VLSR-3)40*40#30 
30  PRINT  708 
GO  TO  10 
40  PRINT  703 
50  INPUT«VPY#AF0 
IF<VPY)90«90«60 
60  IF<VPY-58»>70«70«90 
70  IF<AFD)90#90«80 
80  IFCAFD-365«)100#100«90 
90  PRINT  708 
GO  TO  50 

100  CHAIirCRAVH*** 

700  FORMATC**  Q-1.  ENTER  LEVEL  OF  COHPLEXITY**) 

701  FORMATC**  1 LIMITED  SET  OF  QUESTIONS**/ 

6**  8 DETAILED  SET  OF  QUESTIONS**/ 

6**  3 LIST  AND  MODIFY  PLANNING  FACTORS**) 

703  FORMATC**  Q*8*  ENTER  TRAINING  VEEKS  PER  YEAR**/ 

6**  AND  ANNUAL  FLY-DAYS  CXX.*XXX.)**> 

708  FORMATC**  INVALID  REPLY  - RETYPE**) 

690  FORMATC SX#**FLEET  READINESS  TRAINING  CFRT)**//) 

693  FORMATC //1 0C4H  - -)//5X#**  FRT  RUN  N0.**#I3//) 

END 
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III.  PROGRAM  CRAWH 


PROGRAM  DESCRIPTION 

3.1  The  purpose  of  program  CRAWH  is  to  read  Into  memory  the  data  associ> 
ated  with  a given  squadron  and  all  training  categories.  Upon  entry  to  program 
CRAWH  the  values  of  IS(1)  and  IS(2)  are  checked. 

3.2  If  IS(1)  = 1 and  IS (2)  = 0,  this  indicates  the  first  entry  in  CRAWH  during 
this  run.  In  this  case  question  3 is  asked  if  LEVLSR  / 1 and  subroutine  READSQ 
is  called.  The  subroutine  puts  the  squadron  names  from  both  data  files  into  the 
array  ALLSQD.  After  returning  from  READSQ  question  4 is  asked. 

3.3  If  IS(1)  ^2,  or  IS (2)  ^ 1 , this  indicates  an  entry  to  CRAWH  from  CRAW3. 
In  this  case  the  array  ALLSQD  is  already  set  up  and  the  user  has  had  a chance 
to  see  the  squadron  names.  The  program  goes  directly  to  question  4. 

3.4  Question  4 asks  the  user  to  choose  a squadron  by  typing  in  the  name. 
Then  the  array  ALLSQD  is  searched  for  this  name.  If  it  is  not  found,  an  error 
message  is  printed  and  the  user  retypes  the  name.  When  the  entered  squadron 
name  matches  a squadron  name  in  ALLSQD,  the  program  determines  on  which 
data  file  the  squadron  is  located  by  comparing  its  location  in  ALLSQD  with 
NFILEl,  the  number  of  squadrons  in  SQUAD*1 . The  required  number  of  squadrons 
to  be  skipped  in  the  data  file  is  also  calculated.  The  data  file  is  then  opened 
and  set  to  the  squadron  selected  by  the  user.  (Note  that  the  data  file  is  sequen- 
tial and  all  records  must  be  read  in  order  to  skip  them.)  Next  subroutine  DAT  AIN 
is  called  which  reads  the  data  for  the  selected  squadron  and  training  categories . 
Upon  returning  to  CRAWH  the  data  file  is  closed. 

3.5  Control  is  transferred  to  program  CRAWl  if  LEVLSR  (level  of  complexity) 
is  3.  Otherwise,  control  is  transferred  to  program  CRAW2. 
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SUBROUTINE  READSQ 

3.6  The  purpose  of  subroutine  READSQ  is  to  read  the  squadron  names  from 
both  data  files  (SQUAD*1  and  SQUAD*2)  and  put  the  names  into  the  array  ALLSQD. 
It  also  counts  the  number  of  squadrons  in  SQUAD*1 , which  is  saved  in  NFILEl . 

It  is  called  once  during  each  FRT  model  run.  The  subroutine  determines  the  end 
of  the  data  file  by  testing  the  squadron  name  for  the  four  characters  "ENDJ^ . " 

Also  only  30  squadron  names  are  read.  Then  if  K,  the  argument  of  subroutine 
READSQ.  is  zero,  control  is  returned  to  CRAWH.  If  K is  not  zero,  the  squadron 
names  are  printed. 

SUBROUTINE  NOYES 

3.7  The  purpose  of  subroutine  NOYES  is  to  read  and  validate  a "no"  (N),  or 
"yes"  (Y),  response  from  the  terminal.  If  the  response  is  valid,  the  appropriate 
nonstandard  return  is  taken.  The  nonstandard  return  transfers  control  to  the  proper 
statement  in  the  calling  program.  Return  1 is  taken  for  a no  response.  Return  2 

is  taken  for  a yes  response.  If  the  response  is  invalid,  the  user  must  retype  it. 

SUBROUTINE  DATAIN 

3 .8  The  purpose  of  subroutine  DATAIN  is  to  read  the  data  for  the  selected 
squadron.  First,  it  reads  the  squadron  name  and  number  of  categories.  Then  the 
squadron  support  personnel  are  read  into  the  F array.  Finally  the  data  for  all 
categories  are  read. 

VARIABLE  DICTIONARY 

3.9  Not  all  variables  are  listed  in  Table  7,  since  some  are  Just  used  for 
Indexing  or  their  use  is  obvious.  No  new  common  variables  have  been  added 
in  this  program. 
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Subroutine  DATAIN 


HGURE  3 (Cent) 


I 
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TABLE  6 


CRAWM  PROGRAM  AND  SUBROUTINE  DICTIONARY 


CRAWH 

Main  routine,  prints  questions  3 and  4.  Sets  up  data 
file  for  DATAIN  routine. 

READSQ 

Reads  data  flies  for  names  and  number  of  squadrons . 

NOYES 

Reads  a no  "N" , or  yes  "Y"  from  terminal,  provides 
branchlnq. 

DATAIN 

Reads  squadron  and  category  data. 

TABLE  7 

PROGRAM  CRAWH  VARIABLE  DICTIONARY 


Location 

Variable 

Name 

Dimension 

Description 

CRAWH 

EOF 

1 

Characters  "ENDl^" 

READSQ 

EOF 

1 

Characters  "ENDK" 

CRAWH 

T1 

1 

File  name 

READSQ 

T1 

1 

File  name 

DATAIN 

T1 

1 

File  name 

READSQ 

K 

1 

K = 0,  do  not  print  squadron  names 
K » 1 , print  squadron  names 

CRAWH 

K 

1 

Squadron  number  location  indicator 

CRAWH 

KK 

1 

Data  file  line  number 

READSQ 

KK 

1 

Data  file  line  number 

READSQ 

DUM 

14 

First  1 4 locations  In  common 

DATAIN 

DUM 

14 

First  14  locations  in  common 

NOYES 

DUM 

12 

First  12  locations  In  common 

TABLE  8 

PROGRAM  CRAWH  USTING 


106C- 

1R6 

146 

166C 

186 

806C 

886 

846 

866 

886 

306C 

386 

346 

366 

386 

406 

486 

446C 

466 

486 

506 

586 

546 

566 

586 

606 

686 

646 

666C 

686 

706 

786 

746 

766 

786 

806 

886 


— PROGRAMI  CRAVH  CREAOS  DATA  PILES) 

COMMON  1Y*ISV«LEVLSR«IS(7)#K1LL«IBC«N0«YES 
COmON  SVC  8 ) • AFD«  VPY« ALLSQOC  30 « 8 > • NPI LE 1 • NSQD 

• • • SQUADRON  VARIABLES  - • - 

COMMON  SQNAM(8)«NCAT«P(8«10> 

* * ^CATEGORY  VARIABLES  • • « 

COMMON  NAME(85«3>«NPLA(85#3)*NFUEL(85*3)«NAC(8S)«INSTMIX(85«9> 
COMMON  AM0(85>3>»VX<85«3)«PHADUR(85)«ATRC85>«ATP(85)« 
«aAS<85«3>«C0STPH(8S«3>*PIT0D(85«3)«FITR(85#3)« 

«ACFD<8S«3)*ACHS(85«3>«FINUC85«3*3>»FINHSC85«3«3>«RLS0(85#3«3) 

ALPHA  NO«YES#ALLSQD«SQNAM 
ALPHA  EOF 
FILENAME  T1 
N0-*'N** 

YES-*nr 
EOF«**END  •* 

IPCISC8)«EQ.l >00  TO  140 
IFCISC1).GT*1)G0  TO  140 
IFCLT  uSR.EQ.DGO  TO  110 
PRINT  710 

CALL  N0YES(S110«S105) 

105  CALL  READSQCl) 

GO  TO  140 
110  CALL  READSQ(O) 

140  PRINT  715 
145  INPUT  905«SQNAM 

- - CHECK  FOR  VALID  NAME  1 WHICH  FILE  7 1 FIND  IT* 

150  DO  160  I-UNSQD 

IFCALLSQD(I«1)*NE.SQNAH<1)>00  TO  160 
IF(ALLSQDCI«8)*NE*SQNAMC8>)G0  TO  160 
Kml 

GO  TO  170 
160  CONTINUE 
PRINT  780 
GO  TO  145 
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TABLE  8 (Cont) 


846  170  Tt>**SQUAD«l'* 

866  IF(K.GT>NFILE1 ) T 1 ■"SQUAD42” 

886  ir<K*GT*NFILEl>K>K*NriLEl 

906C  - • FIND  THE  SQUAD  ON  FILE  TI 
986  OPENFILE  TI  t REWIND  Tl 

946  K-K*l 

966  IFCK.EQ.O)GO  TO  500 

986  DO  180  I-1«K 

1006  READ(T1«908>KX 

1086  M«80*KK^8 

1046C  - - - THE  8 IS  FOR  TWO  LINES  OF  SQUAD  DATA 
1066  DO  180  J-1«M 

1086  180  READ<T1«910)KK  ^ 

1106  GO  TO  500 

1186C  - - - READ  SQUAD  AM)  ALL  CAT  DATA  FROM  Tl . - - 

1146  500  CALL  DATAINCTl) 

1166  CLOSEFILE  Tl 

1186  1F(LEVLSR.LE.8>CHAIN**CRAW8«** 

1806  CHAIirCRAWl*** 

1886C 

1846  705  FORMAT!”  INVALID  REPLY  - RETYPE”) 

1866  710  FORMAT!”  Q-3.  PRINT  NAMES  OF  ALL  SQUADRONS!Y«N>”> 

1886  715  FORMAT!”  Q-4.  ENTER  SQUADRON  NAME  !AAAAAAAA>”> 

1306  780  FORMAT!”  SQUADRON  DOES  NOT  EXIST  - RETYPE”) 

1386C 

1346  90S  FORMAT! 8A4) 

1366  908  FORMAT! 13X« 14) 

1386  910  FORMAT! 14) 

1406  915  F0RMAT!SX*3A4«8I3) 

1486  980  FORMAT! 3A4) 

1446  930  FORMAT! 5X*5A4* IX# 5A4) 

1466  END 


21 


TABLE  8 (Cont) 
a.  Subroutine  READSQ 


1486 

SUBROUTINE  REAOSQCK) 

1506 

COMMON  DUMC14) 

1586 

COMMON  SV(8)«ArD«WPY«ALLSQD(30«8>«NFlLEl«NSQD 

1546 

DIMENSION  SQC8) 

1566 

ALPHA  EOr«ALLSQD«SQ 

1586 

FILENAME  T1 

1606 

NSQDol 

1686 

EOF--END  " 

1646 

I-l 

1666 

T1  ■••SQUAD*!" 

1686 

10 

OPENFILE  T1 

1706 

REWIND  T1 

1786 

15 

READ(T1«700>SQ«N 

1746 

IF(SQ(1).EQ.E0F)G0  TO  50 

1766 

IF(I.EQ.31)G0  TO  50 

1786 

ALLSQD(I«1)-SQ(1) 

1806 

ALLSQD(I«8>«SQ(8) 

1886 

N«80*N*8 

1846 

DO  30  J-1«N 

1866 

30 

READ(T1«705>KK 

1886 

1-1*1 

1906 

GO  TO  15 

1986C 

- - 

m 

1946 

50 

NSQD-NSQD*! 

1966 

CLOSEFILE  T1 

1986 

IF(NSQD.EQ.3)G0  TO  100 

8006 

NFILEl-I-1 

8086 

T1-"SQUAD*8" 

8046 

8066C 

GO  TO  10 

8086 

100 

NSQD-I-1 

8106 

IF(K.EQ.O)RETURN 

8186 

PRINT  710#(  <ALLSQD(I«J>« J-l«8>«Ial«NSQD> 

8146 

PRINT#"  " 

8166 

700 

F0RNAT(5X#8A4#I4) 

8186 

705 

FORMAT! 14 > 

8806 

710 

FORMAT! 5X«  8A4#  5X#  8A4#  SX#  8A4  > 

8886 

RETURNIEND 

i 


TABLE  8 (Cent) 
b.  Subroutine  NOYES 


I 
I 

I 

18246  SUBROUTINE  NOYESC«**> 

2866  COMMON  DUM<12>«N0«YES 

2286  ALPHA  NO«YES«N 

2306  10  INPUT  700«N 

f 2326  IPCN.EQ.NOIRETURNI 

I 8346  IP(N.EQ.YES)RETURN2 

2366  PRINT.**  INVALID  REPLY  - RETYPE** 

12386  00  TO  10 

2406  700  F(mMAT(Al) 

2426  END 

, 2446C 


TABLE  8 (Cont) 
c.  Subroutine  DATAIN 


24S6  SUBROUTINE  DATAIN(TI) 

8486  COmON  DUM<14) 

2506  COmON  SV(8>«AFD«VPY*ALLSQD(30*8)«NriLEl«NSQD 

2586  COMMON  SQNAMC2}«NCAT«FC2* 10> 

2546  COMMON  NAME(25*3>*NPLA(25«3)«NrUEL(25»3)«NAC(25)»INSTMlX(25«9> 

8566  COMMON  AM0<25«3>« WXC25«3)»PHA0UR(25)«ATR(25>«ATPC25>« 

2586  8 QAS<25«3)«C0STFH(85«3>«P1T0DC25«3>«FITR<25«3)« 

2606  4 ACFD(25«3)«ACHS(85*3>«F1NUC85*3«3>*FINHS(25«3»3>«RLS0<85«3«3> 

2686  FILENAME  T1 

264 6C 

2666  REAl>m«3>SQNAM«NCAT 

2686  3 FORMAT! 5X«2A4# 14) 

2706  5 FORMATCV) 

8726  10  FORMAT! I 4«1X«9A4> 

2746  REA0!T1«5)IL«!F!UJ)«J-1«5> 

8766  REA0!T1«5)IL«!F!2«J)«J-1«5> 

2786  DO  500  I-1«NCAT 

2806  READ!T1#10)IL«!NAME!I«J>«J>1«3)«!NPLA!I«J)«J>1#3># 

2826  «!NFUEL!I#J>* J-l«3> 

8846  REA0!T1«5>IL«NAC!I)#!INSTMIX!I«J)#J*1«9) 

2866  REA0!T1«5)IL«!AM0!I«J)« J«1«3>«!VX!I«J>«J-1#3) 

2886  READ!Tt«5>IL«PHADUR!I)«ATR!I)*ATP!I> 

2906  READ!T1«5)IL«!GAS!I«J)«J-1#3>«!C0STFH!I#J)«J-1«3> 

2926  READ!T1«5)IL«!FIT0D!I«J>»J>1*3>«!FITR!I«J>«J-1#3> 

2946  READ!Tl#5>IL«!ACFD!I«J)«Jal«3)«!ACHS!I«J)«J-l«3) 

2966C  FLIGHT  INSTRUCTOR  UTILIZATION 

8986  DO  SO  K-l«3 

3006  50  READ!T1«5)IL«!FINU!I*K« J)«J-1*3) 

3026C  - - -FLIGHT  INSTR  HRS/STUD 

3046  DO  60  K-l«3 

3066  60  READ!T1«S)IL«!FINHS!I«K«J>«J-|#3> 

3086C  - - LSO/VST  RATIO 
3106  DO  70  K«l«3 

3186  70  READ!Tl«S)IL«!RLS0!I«K«J)«Jal«3> 

3146C  - - READ  4 SPARE  LINES  !IL  IS  NOT  USED) 

3166  DO  80  K>1#4 

3186  80  READ!T1«5)1L 

3806  500  CONTINUE 

3886C  - - NO  CHECKS  ON  DATA  HAVE  BEEN  PERFORMED 

i 3846  RETURNIEND 

V 


] 

1 

1 

.1 

I 

.1 

1 
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IV.  PROGRAM  CRAW  1 


PROGRAM  DESCRIPTION 

4.1  The  purpose  of  program  CRAWl  is  to  allow  the  user  to  list  and  modify 
the  data  that  were  read  by  program  CRAWH  or  previously  entered  by  this  pro- 
gram. These  changes  do  not  permanently  change  the  data  files  and  are  not 
checked  for  validity,  e.g. , percentages  are  not  checked  for  being  positive 
and  less  than  1.0. 

4.2  First  subroutine  SQUAD  is  called  so  the  user  can  list  and  modify  the 
squadron  support  personnel.  Then  the  option  to  list  the  planning  factors  for 
categories  is  given.  All  the  planning  factors  for  a category  are  listed  by  a 
loop  which  repeatedly  calls  subroutine  CATOUT.  One  of  the  arguments  is  the 
planning  factor  item  number  to  be  listed.  The  item  number  is  incremented  by 

1 in  the  loop;  thus  all  planning  factors  are  printed.  Next  single  planning  fac- 
tors can  be  listed.  This  is  done  by  calling  subroutine  CATOUT  with  the  desired 
category  number  and  item  number. 

4.3  When  no  further  planning  factors  are  to  be  listed,  then  question  25A 
allows  the  user  to  modify  planning  factors . The  change  is  accepted  by  calling 
subroutine  CATMOD  which  prints  out  the  planning  factor  name  and  the  number 
of  data  entries , depending  on  the  number  of  aircraft . 

4.4  After  all  changes  to  planning  factors  in  existing  categories  are  made, 
the  user  may  add  a new  category.  If  a new  category  is  added,  subroutine 
CATMOD  is  called  25  times— once  for  each  different  planning  factor  item  num- 
ber. Next , if  the  user  wants  the  planning  factors  listed  for  the  new  category, 
the  program  goes  through  another  loop  calling  subroutine  CATOUT  for  all  plan- 
ning factors.  Again,  individual  planning  factors  may  be  changed  for  the  new 
category.  This  is  done  by  calling  CATMOD.  If  the  user  wants  to  add  another 
category,  the  above  procedure  is  repeated.  When  no  further  categories  are  to 
be  added,  control  is  transfeired  to  program  CRAW2. 
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SUBROUTINE  SQUAD 


4.5  Subroutine  SQUAD  asks  questions  21  and  22.  It  allows  the  user  to 
print  or  change  the  squadron  support  personnel  data.  These  data  are  stored  in 
the  F array.  Some  calculation  is  required  by  the  program  to  convert  the  input 
planning  factor  item  number  (1  through  10)  into  the  proper  subscripts  for  the 

F array. 

SUBROUTINE  NOYES 

4. 6 The  purpose  of  subroutine  NOYES  is  to  read  and  validate  a no  (N) , or 
yes  (Y) , response  firom  the  terminal.  If  the  response  is  valid,  the  appropriate 
nonstandard  return  is  taken.  The  nonstandard  return  transfers  control  to  the 
proper  statement  in  the  calling  program.  Return  1 is  taken  for  a no  response. 
Return  2 is  taken  for  a yes  response.  If  the  response  is  invalid,  the  user  must 
retype  it. 

SUBROUTINE  CHECK 

4.7  This  subroutine  checks  to  see  if  an  integer  Is  in  a given  range.  If  it 
Is,  the  standard  return  is  taken  and  the  program  continues.  If  the  value  is  out 
of  range,  an  error  message  is  printed,  and  the  program  returns  to  the  previous 
input  statement  by  the  use  of  a nonstandard  return. 

SUBROUTINE  CATOUT 

4.8  The  purpose  of  the  subroutine  is  to  print  out  the  planning  factor  name 
and  value , or  values  if  a category  contains  more  than  one  aircraft  type . The 
arguments  in  subroutine  CATOUT  are  the  category  number  and  the  planning  fac- 
tor item  (reference)  number.  This  subroutine  is  called  in  the  loop  to  list  all 
planning  factors  for  a category.  It  is  also  called  when  single  items  are  to  be 
listed. 

SUBROUTINE  CATMOD 

4.9  The  purpose  of  subroutine  CATMOD  is  to  print  out  the  name  of  the 
planning  factor  item  and  the  number  of  values  to  be  entered  and  to  accept  the 
new  values . The  arguments  in  subroutine  CATMOD  are  the  category  number 
and  planning  factor  item  number.  Siibroutine  CATMOD  is  called  Inside  a loop 
when  a new  category  is  added.  It  is  also  called  when  single  items  are  to  be 
changed. 
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nCURE  4 (Cont) 
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a.  Subroutine  SQUAD 


HGURE  4 (Cont) 

I 

I 

I 
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TABLE  9 

CRAWl  PRCX3RAM  AND  SUBROUTINE  DICTIONARY 


CRAW  1 

Main  program  to  control  the 
calls  to  the  subroutines 

SQUAD 

Lists  and  modifies  squadron 
support  perscmnel 

CHECK 

Checks  to  see  if  the  response 
is  in  the  proper  range 

CATOUT 

Prints  out  a category  planning 
factor 

CATMOD 

Accepts  a category  planning 
factor  change 

NOYES 

Reads  a no  or  yes  (N  or  Y) 
from  terminal  and  takes  appro- 
priate nonstandard  return 

34 


t 


i' 


TABLE  10 

PRCX3RAM  CRAWl  VARIABLE  DICTIONARY 


Location 

Name 

Description 

CRAWl 

NP 

Current  number  of  plan- 
ning factors 

CRAWl 

ICAT 

Category  number— user 
Input 

CRAWl 

I 

Category  planning  factor 
reference  number 

SQUAD* 

N 

Squadron  personnel  plan- 
ning foctor  reference 
number— user  Input 

SQUAD 

V 

New  value  for  planning 
factor- user  Input 

NOYES 

DUM 

Equivalent  to  the  first  12 
locations  In  common 

CHECK 

DUM 

Equivalent  to  the  first  12 
locations  In  common 

CATOUT 

JC 

Category  number 

CATOUT 

I 

Category  planning  factor 
reference  number 

CATOUT 

N 

Number  of  type  of  aircraft 

CATMOD 

T 

Characters  "ENTERrJrf" 

CATMOD 

IN 

3 words,  characters  "IP," 
"INFO,"  "ICVN" 

CATMOD 

IC 

Category  number 

CATMOD 

I 

Category  planning  factor 
reference  number 

B 

i (] 


3S 


p 


I 

i 
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TABLE  11  * 

, PROGRAM  CRAWl  LISTING  1 


lOlC PROGRAMS  CRAVl  CPRINT -MODIFY  DATA) 

121  COMMON  IY«1SV«LEVLSR«IS<7)#KILL«1BC«N0«YES 

141  COMMON  SVC2>«APD«UPY«ALLSQDC30«2)«NPILE1«NSQD 

16 1C SQUADRON  VARIABLES  - • - 

181  COMMON  SQNAM(2)«NCAT«F(2«10> 

201C  - - -CATEGORY  VARIABLES  - - - 

221  COMMON  NAME(25«3)«NPLA(2S«3>«NFUEL(25«3)«NACC2S>«INSTM1X(2S«9) 

241  COMMON  AM0(25«3>«WC(25«3>«PHADUR(25)«ATR(25>«ATP(25>» 

261  «GAS(25«3>«C0STFH<25«3>«FIT0D(25«3)«FITR<25«3)« 

281  «ACFD(25«3>*ACHS(25«3)«FINU<2S«3«3>«F1NHS(25«3«3)«RLS0(25«3«3) 

301C 

321  COMMON  S1(25>«S0C25>«SL<25>«ATR1<25> 

341C 

361  CALL  SQUAD 

381C 

401  NP-2S 

421  PRINT  600 

441  25  INPUT# ICAT 

461  IFCICAT«EQ*0>G0  TO  40 

481  CALL  CHECKCICAT#1«NCAT#S2S) 

SOI  30  DO  35  I«1#NP 

521  IF(I.EQ.8)PRINT#**  ** 

541  35  CALL  CATOUTC ICAT# I ) 

561  PRINT  610 

581  GO  TO  25 

601C 

621  40  PRINT  615 

641  45  INPUT#1CAT#I 

661  1F(ICAT.EQ.0)G0  TO  60 

681  CALL  CMECK(ICAT#1#NCAT#S4S> 

701  CALL  CHECK(1#1#NP#S45> 

721  CALL  CATOUTCICAT#!) 

741  PRINT  620 

761  GO  TO  45 

7GIC  ----- 
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TABLE  11  (Ctont) 

% 

i 

1 

, 801 

60  PRINT  630 

^ 881 

65  INPUT* ICAT«1 

\ 

t 841 

IP(ICAT.EQ«0)G0  TO  80 

\ 

861 

CALL  CHECK(ICAT«1«NCAT*S65) 

881 

CALL  CHECK(I*1«NP*S6S) 

901 

CALL  CATMODCICAT*!) 

981 

PRINT  640 

941 

00  TO  65 

X 

961C 

'■ 

981 

80  PRINT  650 

1001 

85  CALL  N0YESCS15O«S9O> 

i 1081 

90  IFCNCAT.EQ*85>G0  TO  130 

1041 

NCAT«NCAT<»1 

i 

1061 

DO  100  I-1*NP 

I 1081 

100  CALL  CATHODCNCAT*!) 

? 

i 1101 

PRINT  700 

t 

1181 

CALL  N0YES(S180*S105) 

t r 

- 1141 

105  DO  108  I>1*NP 

1161 

IP(I.EQ.8)PRINT***  " 

} * 

' 1181 

108  CALL  CATOUTCNCAT*!) 

i 

1801C 

1 1881 

180  PRINT  710 

! 1 

1 1841 

181  INPUT*I 

# 

1 

1861 

IPCI.EQ.OIGO  TO  185 

; I 

1881 

CALL  CHECK<1«1«NP«S181) 

1 1301 

CALL  CATMODCNCAT*!) 

■ 

1381 

PRINT  780 

r 

1341 

J 1361C 

GO  TO  181 

1 

^ 1381 

185  PRINT  660 

1401 

GO  TO  85 

1 

1481C 

1 

1441 

130  PRINT  670 

1461 

150  CHAIN  **CRAV84** 

[ 

1 1481C 

n 

0 

[] 

(1 

: n 


37 


p 


TABLE  11  (Cont) 


I 

1 


1501  600  FORMAK/**  Q*23A.  FOR  DETAILED  LIST  OF  ALL  CATEGORY^# 

1521  6"  PLANNING  FACTORS”/”  ENTER  THE  CAT.  NO.  (XX)”/ 

1541  «”  (ENTER  0 FOR  NO  FURTHER  DETAIL)  ”) 

1561  610  FORMAT(/”  Q>23B.  TO  LIST  PLANNING  FACTORS  FOR  ANOTHER”# 

1581  6”  CATEGORY”/**  ENTER  CAT.  NO. (OR  0)  ”) 

1601  615  FORMAT(/**  Q-24A.  TO  LIST  A SPECIFIC  PLANNING  FACTOR”/ 

1621  ***  ENTER  THE  CAT.  NO.  AND  THE  PLANNING  FACTOR”# 

1641  4”  NO.(XX#XX)”/”  ENTER  0#0  FOR  NO  FURTHER  DETAIL  **) 

1661  620  FORMAT!/”  Q-24B.  NEXT  PLANNING  FACTOR! XX# XX)”) 

1681  630  FORMAT!/**  Q-25A.  TO  MODIFY  A PLANNING  FACTOR”/ 

1701  4”  ENTER  THE  CAT.  NO.  AND  THE  PLANNING  FACTOR  NO.  (XX#XX)** 

1721  4/”  (ENTER  0#0  FOR  NO  MODIFICATIONS)  ” ) 

1741  640  FORMAT!/**  Q-25B.  NEXT  M0DIFICAT10N(XX#XX)”) 

1761  650  FORMAT!/”  Q-26A.  DO  YOU  «ANT  TO  ADD  A CATEGORY! Y# N)”) 

1781  660  FORMAT!/”  Q«26B.  ADD  ANOTHER  CATEG(mY!Y#N)”) 

1801  670  FORMAT!//**  NO  SPACE  FOR  AN  ADDITIONAL  CATEGORY”/ 

1821  4”  ONLY  25  CATEGORIES  IN  A SQUADRON**/ 

1841  4”  4 PROGRAM  CONTINUES  *”///) 

1861C 

1881  700  FORMAT!/”  Q-27.  DO  YOU  WANT  A LISTING  OF  ALL  PLANNING**# 

1901  4”  FACTORS”/”  FOR  THE  NEW  CATEGCfflY!Y#N)”) 

1921  710  FORMAT!/”  Q-28A.  TO  CHANGE  OR  CORRECT  A PLANNING  FACTOR**# 

1941  4/”  FOR  THE  NEW  CAT.  ENTER  THE  PLANNING  FACTOR  NUMBER”/ 

1961  4”  ENTER  0 FOR  NO  FURTHER  CHANGES  **) 

1981  720  FORMAT!/”  Q*28B.  NEXT  PLANNING  FACTOR  (XX)”) 

2001  END 
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TABLE  11  (Cont) 
a.  Subroutine  SQUAD 


8021 
8041 
8061 
808 1C 
2101 
8121C 
8141 
8161 
8181 
8801 
8881C 
8841 
8861C 
8881 
8301 
8381 
8341 
8361 
8381 
8401 
8481 
8441 
8461 
8481 
8501 
858 1C 
8541 
8561 
8581 
8601 
8681 
8641C 
8661 


SUBROUTINE  SQUAD 

COMMON  1Y«ISV«LEVLSR«1S(7>«KILL«1BC«N0«YES 
COMMON  SVC  8 > « AFD«  VPY« ALLSQDC  30«  8 ) « NFI LE 1 « NSQD 

SQUADRON  VARIABLES  - 

COMMON  SQNAM(2)«NCAT«F(8«10> 

- - -CATEGORY  VARIABLES  - - - 

COMMON  NAME(8S*3)«NPLAC25*3>»NFUEL(25«3>«NAC(25)«INSTMIX(85«9 
COMMON  AM0C8S«3>#WX<25«3)«PHADUR(25>«ATR(85>«ATP(25)« 
6GAS(8S«3)«C0STPH(85«3>«FIT0D(85«3)«FITR(85#3)« 
«ACFD(25«3>«ACHS(25«3>«PINU(85«3«3>#FINHSC25«3«3)«RLS0(25«3«3> 

COmON  SI(85>«S0(85>«SL(25>«ATRIC25) 

PRINT  700 

CALL  N0YESCS100«S50> 

50  PRINT  710«(F<1«I)#I«1«5> 

PRINT  780«(F(8«I>«I-US) 

100  PRINT  730 
180  INPUT«N«V 

IFCN.EQ.OIGO  TO  800 

IFC  (N.GE.D.AND.CN.LE.IO)  >G0  TO  130 
GO  TO  140 

130  IFCV.GE.O.IGO  TO  150 
140  PRINT  790 
GO  TO  120 

150  I1-CN-1>/5<*>1 
I8-N-5*(ll-l> 

F(I1#I8)-V 
PRINT  740 
GO  TO  180 

800  RETURN 
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TABLE  11  (Cont) 


8681 

8701 

8781 

8741 

8761 

8781 

8801 

8881 

8841 

8861 

8881 

8901 

8981 

8941 

8961 

8981 


3001 

3081 

3041 

3061 

3081 

3101 

3181 

3141 

3161 

3181 


3801 

3881 

3841 

3861 

3881 

3301 


a.  Subroutine  SQUAD  (Cont) 


700  FORMATC/**  Q-81.  DO  YOU  UANT  A LIST  OF  SQUADROIT/ 

4**  PERSONNEL  FACTORSCY«N>**> 

710  FORMAK/**  ADMIN.  OFFICERS”// 

4”  1 IP  ”*F6.8/”  8 INFO  ”#F6.8/ 

4”  3 GR0UND”«F6.8/”  4 MAINT.6D”«F6.8/ 

4”  5 OTHER  ”«F6.8) 

780  FORMAT C/”  ENLISTED  SUPPORT”/ 

4”  6 TRAIN.”#F6.8/”  7 DET.  ”#F6.8/ 

4”  8 SITE  ”#F6.8/”  9 ADM.  ”.F6.2/ 

4”  10  CREV  ”«F6.8> 

730  FORMATt/”  Q>88.  TO  CHANGE  A PERSONNEL  FACTOR  ENTER”/ 
4”  ELEMENT  NO.  AND  NEW  VALUE(XX*XX. )” 

4/”  CENTER  0«0  FOR  NO  FURTHER  CHANGES)”) 

740  F(»MAT(”*NEXT”) 

790  FORMATC/”  INVALID  REPLY  - RETYPE”) 

END 

b.  Subroutine  NOYES 


SUBROUTINE  N0YES(««4) 

COMMON  Dtm<18)«N0«YES 
ALPHA  NO«YES«N 
10  INPUT  700*N 

IFCN.EQ.N0)RETURN1 
I FC  N .EQ .YES )RETURN8 
PRINT#”  INVALID  REPLY  - RETYPE” 
GO  TO  10 
700  FtmMATCAl) 

END 


c.  Subroutine  CHECK 


SUBROUTINE  CHECKCN#NLO«NUP«*) 

COmON  DUMCIS) 

IFC  CM.GC.IILO.AND.CN.LE.NUP)  )RETURN 
PRINT# "INVALID  REPLY  - RETYPE” 

RETURN 1 
END 
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TABLE  11  (Cent) 
d.  Subroutine  CATOUT 
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3321  SUBROUTINE  CAT0UTC1C«I) 

3341  COMMON  IY«ISV«LEVLSR«IS(7>«KILL«IBC«N0«YES 

3361  COMMON  SV(2>«AFD#WPY«ALLSQD(30«2>«NFILE1«NSQD 

3381C  • . . SQUADRON  VARIABLES  • 

3401  COMMON  SQNAM(2>«NCAT«F(2* 10> 

342 1C  - - 'CATEGORY  VARIABLES  - - - 

3441  COMMON  NAMEC2S«3)»NPLA(2S«3>#NFUEL<25«3>«NAC(25>«INSTMIX(25«f 

3461  COMMON  AM0(2S«3>«tlX(2S«3>#PHADUR(25>>ATR(25>#ATP(2S)« 

3481  4GAS(25«3>«C0STFH(25«3)«FIT0D(25«3)«FITR(25«3)« 

3501  «ACFD(25«3)«ACHS(25«3)#FINU<25«3«3>«FINHS(25«3#3)«RLS0<25»3«3) 

352 1C 

3541  COMMON  SI (25)«S0C25)«SL(25>«ATR1 (25) 

3561  N«NAC(1C> 

3581  GO  T0(10«20#30«40«50«60«70«80«90«100«110«120«130«140« 

3601  «150«160«170«180«190«200»210*220«230«240«250)«I 

3621  10  PRINT  510*I«(NAME(IC#J)«J«1«3) 

3641  510  F0RMATCI3#**  CATEGORY  NAME 

3661  RETURN 

3681  20  PRINT  520* I «N 

3701  520  FORMAT! 1 3#"  NUM.  OF  TYPES  OF  AIRCRAFT  ’SIS) 

3721  RETURN 

3741  30  PRINT  S30»l tPHADURdO 

3761  530  FORMAT!  13***  WEEKS  TO  COMPLETE  TRAINING  "•FS.D 

3781  RETURN 

3801  40  PRINT  540« I «ATR! 1C > 

3821  540  F0RHAT!I3«'*  ATTRITION  RATE!  lOOS-1  • > **«F7.3> 

3841  RETURN 

3861  50  PRINT  550«1*ATP!IC) 

388  1 550  FORMAT!  13***  ATTRITION  POINT'S  12X«F7. 3) 

3901  RETURN 

3921  60  PRINT  560*1 

3941  PRINT  565*!FIT0D!1C*J)*J-1*3> 

3961  560  FORMATIIO***  TOUR  OF  DUTY  FOl  - IP"* 

3981  A"  INFO  IC/N"> 

4001  565  FORMAT! 6X*"!M0NTHS)"*14X*3F7.0> 

4021  RETURN 

4041  70  PRINT  570*1 

4061  PRINT  565*!F1TR!1C*J)*J«1*3) 

4081  570  FORMAT! 13*"  TRAINING  PERIOD  FOR-  - • - IP"* 

4101  A"  INFO  IC/N") 

4J21  RETURN 


TABLE  11  (Cont) 
d.  Subroutine  CATOUT  (Cont) 


4141 

4161 

4181 

4801 

4881 

4841 

4861 

4881 

4301 

4381 

4341 

4361 

4381 

4401 

4481 

4441 

4461 

4481 

4501 

4581 

4541 

4561 

4581 

4601 

4681 

4641 

4661 

4681 

4701 

4781 

4741 

4761 


80  PRINT  580«I^(NPLA(1C«J)«J-1«N) 

580  F0RMAT(13#»*  AIRCRAFT  TYPE***7X#3(5X*A4)  ) 
RETURN 

90  PRINT  590*I«CAM0(IC*J>«J>1«N) 

590  F0RMAT<I3,"  MO  FACTOR”# 18X# 3F9 .2) 

RETURN 

100  PRINT  600«I#(WX(IC#J)#J-1#N) 

600  F0RMAT(13#**  VEATHERt  100X«1  • )”#6X#3F9 *3) 

RETURN 

110  PRINT  610#1#(NFUEL(IC#J)#J«1#N) 

610  F0RMAT(13#”  FUEL  TYPE**#  1 1X«3(5X«A4)  ) 

RETURN 

120  PRINT  680#1#(GAS(1C#J># J«1#N) 

620  F0RKAT(I3#'*  FUEL  CONSUMPTION**# 5X#3F9.8) 

RETURN 

130  PRINT  630#I#(C0STFH(IC#J)#J>1#N) 

630  F0RMAT(I3#**  S PER  FLIGHT  H0UR**#4X#3F9.8> 
RETURN 

140  PRINT  640#I#(ACFD(IC#J>#J>1#N> 

640  F0RMAT<I3#**  A/C  FLT.  HRS/DAY  **#3F9.2> 
RETURN 

150  PRINT  650#I#(ACHSCIC#J)#J-1#N> 

650  F0RMATCI3#**  A/C  H0URS/STUDENT**#4X#3F9 .2> 
RETURN 
160  M-34N 

PRINT  660#I#CINSTMIX<IC#J)#J«1#M) 

660  F0RMATCI3#**  INSTRUCTION  TYPES**/ 

43X#**C1-IP#2»INF0#3-IC/N)  **#3( 1 5#2t**#**#I  1 ) ) ) 

RETURN 

170  PRINT  670#I#(F1NU(1C#1# J)#J«1#N> 

670  F0RMAT(13#**  IP  UTILIZ«<FLY.DAY>**#3F9.8> 
RETURN 
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TABLE  11  (Cont) 
d.  Subroutine  CATOUT  (Cont) 


4781 

4801 

4881 

4841 

4861 

4881 

4901 

4981 

4941 

4961 

4981 

5001 

5081 

5041 

5061 

5081 

5101 

5181 

5141 

5161 

5181 

5801 

5881 

5841 

5861 


180  PRINT  680#I«(F1NU(IC«8* J)«J-1«N) 

680  F0RMAT(I3»”  INFO  UTILIZ.(FLY.DAY>"*3F9.8) 

RETURN 

190  PRINT  690«I>CFINUCIC»3« J)«J-1«N> 

690  F0RMAT<I3#"  IC/N  UTILIZ.(FLY.DAY)*S3F9.8) 

RETURN 

800  PRINT  700«I«(FINHS<IC#1»J)«J-1«N> 

700  FORMAT!  I3>"  IP  INSTR  HRS/STUD.  'SOFO.S) 

RETURN  ; 

810  PRINT  710»I«(FINHS(IC«8,J)«J-UN> 

710  FORMAT! 13#"  INFO  INSTR  HRS/STUD.  ”#3F9.8) 

RETURN 

880  PRINT  780#I#!FINHS!IC#3# J># J-1#N> 

780  FORMAT! 13#"  IC/N  INSTR  HRS/STUD.  "#3F9.8) 

RETURN 

830  PRINT  730#I#!RLS0!IC#1# J)#J>1#N> 

730  F0RMAT!I3#"  IP  ACD/LSO/WST  RATIO  "#F7.a#8F9.a) 
RETURN 

840  PRINT  740#I#!RLS0!IC#a# J)# Jb1#N) 

740  F0RMAT!I3#"  INFO  ACD/LSO/WST  RATIO  ">F7.a#8F9.a> 
RETURN 

850  PRINT  750#I#!RLS0!IC#3# J># J>1#N) 

750  F0RMAT!I3#"  IC/N  ACD/LSO/WST  RATIO  "#F7.a#8F9.a> 
RETURN 
END 
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TABLE  11  (Cont) 
e.  Subroutine  CATMOD 


5281 

5301 

5321 

5341C 

5361 

5381C 

5401 

5421 

5441 

5461 

5481C 

5501 

5521 

5541 

5561 

5581 

5601 

5621 

5641 

5661C 

5681 

5701 

5721 

5741 

5761 

5781 

5801 

5821 

5841 

5861 

5881 

5901 

5921 

5941 

5961 

5981 

6001 

6021 


SUBROUTINE  CATM0D(IC«1> 

COMMON  lY*ISV«LEVLSR«IS(7)«KtLL«IBC«N0*YES 
COMMON  SVC 2 ) # APD« VPY* ALLSQDC 30«2)«NFILE1* NSQD 

- - • SQUADRON  VARIABLES  - - - 

COMMON  SQNAM(2>«NCAT«rC2«10> 

- CATEGORY  VARIABLES  - 

COMMON  NAME(25#3>»NPLA(25#3)«NFUEL(25«3)«NAC(25>«INSTMIXC25«9 
COMMON  AM0C25«3)«VX<25«3>«PHADUR(2S>#ATR(25>>ATP(25)« 
«GAS(25*3)«COSTFH(25«3)«FITODC2S«3)*PITRC25«3>« 

«ACPDC25«3)«ACHS(25»3)>FINU(25«3«3)«FINHS(25«3«3)«RLS0C25«3*3) 

COMMON  SI(2S)«S0(25>*SL(2S)«ATRIC2S) 

DIMENSION  T(2)»IN(3> 

ALPHA  NAME«NPLA«NFUEL#T#IN 
DATA  T/*«  ENT”#"ERI  »*/ 

DATA  IN/"IP  ”#**INFO","IC/N*V 
N-NACCIO 

GO  TO  (10«20«30«40«50»60«70«80«90«100#110«120«130« 
4140«150»160«170«180«190»200«210«220*230«240«2S0)«I 

10  PRINT  510*I«T 

510  F0RMAT(I3«2A4#”NEV  CATEGORY  NAME**/ 

«**  CMAX  OF  12  CHARACTERS)  **) 

INPUT  1S«<NAMECIC«J>«J>1«3>  i 15  F0RMATC3A4) 

RETURN 

20  PRINT  520«I#T 

520  F0RMATCI3#2A4#"NUM.  OF  TYPES  OF  AIRCRAFT*'/ 

CMAX  OF  3)  •*  ) 

INPUT«NACCIC> 

RETURN 

30  PRINT  530«I«T 

530  FORMAT!  I3«2A4«**VEEKS  TO  COMPLETE  TRAINING") 

INPUT«PHADURCIC> 

RETURN 

40  PRINT  540«I«T 

540  F0RMATCI3«2A4«"ATTRITI0N  RATE") 

INPUT«ATRCIC) 

RETURN 
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TABLE  11  (Cont) 

e.  Subroutine  CATMOD  (Cont) 


6041  50  PRINT  SS0«I«T 

6061  550  F0RMAT(I3«2A4«”ATTRITI0N  POINT”) 

6081  2NPUT#ATP<IC) 

6101  RETURN 

6121  60  PRINT  S60«I«T 

6141  560  FORMATC I 3«2A4« “FLIGHT  INSTRUCTOR  TOUR  OF  DUTY( MONTHS)”) 

6161  PRINT  562 

6181  562  FORMAT <”  ENTER  VALUES  FOR  IP#1NF0«IC/N  ”) 

6201  INPUT^CFlTODdC#  J)»J»1*3) 

6221  RETURN 

6241  70  PRINT  570#I,T 

6261  570  FORMAT? I 3»2A4# “MONTHS  TO  TRAIN  EACH  TYPE  FLT  INSTR.”) 

6281  PRINT  562 

6301  1NPUT«(FITR(IC«J)«J>1«3) 

6321  RETURN 

6341  80  PRINT  580«I#T>N 

6361  580  FORMAT? I 3«2A4« “NAMES  FOR  THE“#I2#“  AIRCRAFT  TYPE”/ 

6381  4”  ?4  CHARACTERS  PER  NAME)”) 

6401  1NPUT»?NPLA?IC#J)«J-UN) 

6421  RETURN 

6441  90  PRINT  590«I«T«N 

6461  590  FORMAT?! 3# 2A4« “THE  MO  FACTOR  FOR  THE”^I2>”  AIRCRAFT  TYPE”//) 

6481  INPUT«?AM0?1C«J)«J«UN) 

6501  RETURN 

6521  100  PRINT  600«I«T«N 

6541  600  F0RMAT?I3«2A4»”THE  WEATHER  FACTOR? 100X«1 • ) FOR”/ 

6561  4”  THE”# 12#”  AIRCRAFT  TYPE  ”) 

6581  INPUT#?WX?IC#J)#J>1#N) 

6601  RETURN 

6621  110  PRINT  610#I#T#N 

6641  610  FORMAT? I 3# 2A4# “FUEL  TYPE  FOR  EACH  ?"#12#“)  AIRCRAFT”//) 

6661  INPUT#?NFUEL?IC#J)#J-1#N) 

6681  RETURN 

6701  120  PRINT  620#I#T#N 

6721  620  FORMAT? I 3# 2A4# “FUEL  CONSUMPTION  FOR  EACH  ?”#12# 

6741  4”)  AIRCRAFT”//) 

6761  INPUT# ?GAS?IC#J)#J>1#N) 

6781  RETURN 
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TABLE  11  (Cont) 

I 

1 

e.  Subroutine  CATMOD  (Cont) 

1 

6801 

130  PRINT  630«I«T*N 

6821 

630  F0RHAT(13«2A4«**S  PER  PLIGHT  HOUR  FOR  EACH  ("«I2« 

1 

6841 

*••)  AIRCRAFT"//) 

6861 

INPUT# (C0STFH(IC«J)«J-1«N) 

a 

6881 

RETURN 

1 

6901 

140  PRINT  640#1«T#N 

1 

6921 

640  F0RHAT(I3#2A4#"A/C  FLT#  HRS/DAY  FOR  EACH  ("#I2# 

6941 

4")  AIRCRAFT"//) 

! 

6961 

INPUT# (ACFD(IC#J)#J>1#N) 

1 

6981 

RETURN 

7001 

ISO  PRINT  650#I#T#N 

I 

1 

7021 

650  FORMAT (I 3# 2A4# "A/C  HOURS/STUDENT  FOR  EACH  ("#I2# 

1 

7041 

4")  AIRCRAFT"//) 

7061 

INPUT# CACHS(IC#J)#J«1#N) 

X 

7081 

RETURN 

I 

7101 

160  PRINT  660#I#T#N 

1 

7121 

M-3*N 

7141 

660  FORHATC I 3#2A4# "INSTRUCTION  TYPES  FOR  EACH  ("#I2# 

7161 

4")  AIRCRAFT"/4X#"USE  1 FOR  IP#2  FOR  INF0#3  FOR  IC/N**# 

1 

7181 

4"#  0 FOR  NONE** /4X# "USE  3 INTEGERS  PER  AIRCRAFT 

I 7201 

4 (E#G.  1#3#0>"//) 

1 

7221 

INPUT#  aNSTMIX(IC#J)#J-l#M> 

! 

7241 

RETURN 

7261 

170  PRINT  670#I#T#IN(1)#N 

7281 

670  F0RMATCI3#2A4#1X#A4#"  UTILIZATI ON(FLY.DAY)  FOR  EACH  (**# 

1 

7301 

412#")  AIRCRAFT"//) 

1 

7321 

INPUT# (FINUCIC#1#J)#J>1#N) 

7341 

RETURN 

7361 

180  PRINT  670#I#T#IN(2)#N 

i 

7381 

INPUT# CFINU(IC#2#J)#J-1#N) 

7401 

RETURN 

7421 

190  PRINT  670#1#T#IN(3)#N. 

1 

7441 

INPUT# (P1NU(IC#3#J)#J>1#N) 

7461 

RETURN 

1 

1 

\ 
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1 

1 

1 

1 

TABLE  11  (Cont) 

e.  Subroutine  CATMOD  (Cont) 


7481  800  PRINT  700«I«T«1N( 1 >«N 

7501  700  F0RMAT(I3«8A4#1X«A4«'*  HOURS /STUDENT  FOR  EACH  (**«I2« 

7581  AIRCRAFT**//) 

7541  INPUT«(F1NHS(1C#1«J)«J>1«N) 

7561  RETURN 

7581  810  PRINT  700«I#T«IN(8)«N 

7601  INPUT*  <FINHSnC«8<J)«J-l#N> 

7681  RETURN 

7641  880  PRINT  700#I*T*IN(3)*N 

7661  INPUT*  (FlNHSaC*3*J)*J-l*N> 

7681  RETURN 

7701  830  PRINT  730*1*T*IN( 1 )*N 

7781  730  F0RMAT(I3*8A4*1X*A4***  ACD/LSO/WST  RATIO  FOR  EACH  (***I8* 

7741  ***)  AIRCRAFT**//) 

7761  INPUT* (RLS0<IC*1*J)*J>1*N) 

7781  RETURN 

7801  840  PRINT  730*I*T*1N(8)*N 

7881  INPUT*(RLS0CIC*8*J)*J«1*N) 

7841  RETURN 

7861  850  PRINT  730*I*T*IN(3)*N 

7881  1NPUT*(RLS0(IC*3*J)*J-1*N) 

7901  RETURN 

7981  END 
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V.  PROGRAM  CRAW2 


5.1  The  purpose  of  program  CRAW2  Is  to  accept  the  data  in  question  7, 
calculate  the  student  lnput«  student  output  attrites  and  student  load,  and  print 
out  the  student  statistics. 

5 . 2 Upon  entry  to  program  CRAW2 , the  data  for  the  student  statistic  arrays 
are  set  to  zero.  The  next  question  depends  on  the  value  of  IS(2); 

e If  IS(2)  t 2,  indicating  a return  from  question  8, 
question  6 is  asked. 

e If  IS(2)  = 1 , the  name  of  the  squadron  and  the 
number  of  categories  are  printed . For  level  of 
complexity  1,  question  6 is  asked.  For  levels 
2 and  3,  question  5 is  asked.  Then  question  6 
is  asked  and  the  response  is  verified. 

Next,  the  program  determines  if  the  instruction  for  indicating  no  further  data  and 
choosing  the  optional  squadron  summary  should  be  printed. 

5.3  Question  7 is  asked,  and  the  computer  prints  out  the  type  of  data 
the  user  must  enter  (l.e. , based  on  this  input  option).  These  data  are  entered 
and  verified.  Subroutine  STUDENT  Is  then  calM  to  calculate  the  student  input 
and  output  for  each  category.  After  return  to  CRAW2,  the  attrites  and  student 
load  are  calculated  and  the  student  statistics  section  of  the  category  summary 
is  printed.  Next  control  is  passed  to  program  CRAW3. 

SUBROUTINE  STUDENT 

5 .4  The  purpose  of  subroutine  STUDENT  is  to  calculate  the  student  input 
and  output  based  on  the  data  entered  and  the  data  input  option.  Ihe  data 
entered  are  stored  in  airay  SO.  This  subroutine  has  four  parts  corresponding  to 
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the  four  data  Input  options.  Each  part  solves  a different  algebraic  relationship 
between  the  data  entered  and  student  output.  The  correct  part  is  selected  from 
the  user's  data  input  option. 

5.5  Next  the  student  ou^ut  and  student  input  are  calculated  and  stored  in 
arrays  SO  and  SI  respectively.  (Note  that  array  SO  contains  the  data  entered 
upon  entry  to  this  sxibroutine  and  the  student  output  upon  return  to  CRAW2.) 

SUBROUTINE  NOYES 

5.6  The  purpose  of  subroutine  NOYES  is  to  read  and  validate  a no  (N),  or 
yes  (Y),  response  from  the  terminal.  If  the  response  is  valid,  the  appropriate 
nonstandard  return  is  taken.  The  nonstandard  return  transfers  control  to  the  pro- 
per statement  in  the  calling  program.  Return  1 is  taken  for  a no  response.  Re- 
turn 2 is  taken  fcx  a yes  response.  If  the  response  is  invalid,  the  user  must  re- 
type it, 

VARIABLES  AND  COMMON 

5.7  The  new  variables  added  to  the  common  part  of  memory  in  CRAW2  are 
given  in  Table  12.  Additional  variables  used  in  this  program  are  also  listed  in 
Table  12. 
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TABLE  12 

PRCX3RAM  CRAW2  VARIABLE  DICTIONARY 


Location 

Variable 

Name 

Dimension 

Description 

Common 

SI 

25 

Student  Input  for  category  I 

Common 

SO 

25 

Student  output  for  category  I 

Common 

SL 

25 

Student  load  for  category  I 

Common 

ATRI 

25 

Attrites  for  category  I 

CRAW2 

TITLE 

25.  4 

Stores  the  data  input  option 
phrases  (20  characters  per 
option) 

CRAW2 

lOP 

1 

Data  input  option  (between  1 
and  4) 

CRAW2 

N 

1 

Category  number,  user  input 

CRAW2 

S 

1 

Data  input  value 

CRAW2 

T1 

1 

Total  attrites  in  squadron 

CRAW2 

T2 

1 

Total  student  load 

I r 


TABLE  13 

II  CRAW2  PROGRAM  AND  SUBROUTINE  DICTIONARY 

i 

11 
B 
B 

n 

II 


CRAW2 

Prints  out  questions,  accepts  data  for  question  7 and 
validates  it.  Computes  student  load  and  attrites. 

STUDENT 

Calculates  student  input  and/or  output  based  on  data 
and  input  option. 

55 


TABLE  14 

PROGRAM  CRAW2  LISTING 


I08C- 
188 
148 
168C  < 
188 

808C  • 
888 
848 
868 
888 
308C  • 
388 
348 
368 
388 
408 
488 
448 
468 
488C 
508 
588 
548 
568 
588 
608 
688 
648 
668 
688 
708 
788 
748 
768 
788 
808 
888 
848 


•PROGRAM*  CRAV8  < ACCEPTS •CALCULATES  STUDS*  INPUT) 

COMMON  iy#ISV#LEVLSR#lS<7)>KlLL«lBC#N0«YES 
COmON  SV(8)«APD«WPY«ALLSQD(30«8>«NFILEWNSQD 

• • SQUADRON  VARIABLES  

COMMON  SQNAM(8)«NCAT#F(8«10> 

• -CATAGORY  VARIABLES  - - - 

COMMON  NAME(85«3)«NPLA(85«3)«NFUEL(85«3)#NACC85)«INSTMIX(85«9> 
COMMON  AM0(85«3>«VX(85«3>*PHADUR(85)«ATR(8S)«ATP(85>« 
4GAS(85«3)«C0STFHC85«3>«FIT0D(8S«3)«FITR(8S«3)* 
«ACFD(85*3)*ACHS(85*3)*FINU(85«3«3)«FINHSC85«3*3)«RLS0(85«3«3> 

COMMON  SI(8S>«S0C85)«SL(85)»ATRI<85> 

DIMENSION  TITLE(5«4> 

ALPHA  NO«YES«TITLE 

DATA  TITLE/’*STUD*%**ENT  "#”INPU»V"T  TO”#**  CAT"# 

*"STUD"#"ENT  "#"OUTP"#"UT  "#"  "# 

*"THOU"#"S  % "#"FOR  "#"FLYI"»"NG"# 

*"NUMB"#"ER  0"#"F  AI"#"RCRA"#"FT"/ 

NO»"N”  I YES»"Y" 

DO  10  I-l#85 
SI(I)-0* 

S0(I)>0* 

SL(l)-0* 

10  ATRI(1)«0. 

1F(ISC8).EQ.8)G0  TO  40 
PRINT  700«SQNAM«NCAT 
1F(LEVLSR*EQ.1 >G0  TO  40 
PRINT  70S 

CALL  NOYES (S40#S80) 

80  PRINT  710#SQNAM 
DO  85  I-1#NCAT 

85  PRINT  780#I#CNAME(I#J)#J-1#3) 

40  PRINT  740#(I#(TITLE(J#I)#J-1#5)«I-1#4) 

43  INPUT# I OP 

IF(  (I0P*0E*1>.AND*<I0P.LE*4)  >00  TO  50 
PRINT  790 
GO  TO  43 


1 

1 


] 


1 


1 


.1 


1 

1 

1 


TABLE  14  (Cont) 


862  50  ir((LEVLSR.EQ.l>.0R.(IS(l)*QE*2>.0R.<IS(8>.GT«0>>60  TO  60 

888  PRINT  745 

908  60  PRINT  750« (TITLE( J« I 0P>« J-1 « 5> 

988C  NOV  ENTER  DATA  INTO  ARRAY  SO.  TEMPORARY! 

948  80  INPUT«N«S 

968  IF(N)800«300«100 

988  100  IP<N.6T.NCAT>G0  TO  800 

1008  IFCS.LT.O.IGO  TO  800 

1088  SO(N)>S 

1048  PRINT  760 

1068  GO  TO  80 

1088  800  PRINT  790 

1108  GO  TO  80 

1188C 

1148  300  lSV-0 

1168  1F(S.GT.0.99)1SV-1 

1188  CALL  STUDENT(IOP) 

1808  T1>0. 

1888  T8-0. 

1848  PRINT  800«DAT(X)«SQNAM 

1868  DO  310  1-1«NCAT 

1888  ATRI Cl >-Sl Cl >*S0(1> 

1308  SLCD-C  SICn*ATPCl)«SOCl)*Cl.-ATPCI>)  >*PHADURC1) 

1388  SLCn>SLCI>/VPY 

1348  Tl-TUATRICI) 

1368  T8>T8i>SLCI) 

1388  310  PRINT  810« CNAMECI • J)« J-1 «3>«SI C I )«SOC I >«ATRI C I >«SLC I ) 

1408  PRINT  880«T1«T8 

1488  CHAlHrCRAV3*** 

1448C 
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TABLE  14  (Cont) 


U6& 

1402 

1502 

1522 

1542 

1562 

1562 

1602 

1622 

1642 

1662 

1682 

1702 

1722 

1742 

1762 

1782 

1802 

1822 

1642 


700  PORMATC**  READINESS  SQUAORONt  **«2A4«**  HAS  **#12# 

A **  CATEGORIES**  ) 

70S  PORMATC/**  Q*5#  DO  YOU  UANT  A LIST  OP  CATEGORIES**/ 

A**  AND  THEIR  NUMBER(Y#N>**> 

710  P0RMAT(5X#**READINESS  SQUAORONt  **2A4/ 

6**  CAT.  NO.  CAT.  NAME**) 

720  P0RMAT(2X#14#6X#3A4> 

740  PORMATC/**  Q-6.  ENTER  DATA  INPUT  OPTI 0N**»4C /14#2X# 5A4)  ) 
745  PORMATC/**  POR  NO  PURTHER  DATA  ENTER  I**/ 

A**  0#0  TO  GET  SQUADRON  SUMMARY  PRINTED**/ 

A**  0«1  TO  SKIP  SQUADRON  SUIWARY**) 

750  PORMATC/**  Q-7.  ENTER  CAT.  NO.  AND  **#5A4#**  CXX#XXX)**> 

760  PORMATC**^NEXT**> 

790  PORMATC**  INVALID  REPLY  - RETYPE**) 

800  PORMATC //10C4H  * *)/lX#A6/5X#**READlNESS  SQUADRON!  **#2A4# 
A//12X#**STUDENT  STATISTICS**/ 

A**  CAT.  NAME** #6X#** INPUT  OUTPUT  ATTRITES  LOAD**) 

810  PORMATC IX# 3A4#4P8 .2) 

620  PORMATC**  ««T0TAL**#21X#2P8 .2///) 

END 
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TABLE  14  (Cont) 
a.  Subroutine  STUDENT 


1862 

1882 

1902 

1922C 

1942 

1962C 

1982 

2002 

2022 

2042 

2062 

2082C 

2102 

2122C 

2142C 

2162 

2182 

2202 

2222 

2242C 

2262C 

2282 

2302 

2322 

2342C 


SUBROUTINE  STUDENT (1 OP > 

C OMMON  I Y> I SV«  LEVLSR#  X S ( 7 ) « KI LL« 1 BC  « N0«  YES 
COMMON  SVC2)«APD«VPY«ALLSQD(30«2>.NFILE1«NSQD 

- > • SQUADRON  VARIABLES  • - - 

COMMON  SQNAM(2>«NCAT«P(2*10) 

- - -CATAGORY  VARIABLES  - - - 

COMMON  NAME(25«3)«NPLA(25*3)«NFUEL<25*3)«NAC(25>*INSTMIX(25«9 
COMMON  AM0C25«3)«VX(25«3)«PHADUR(25)«ATR(25)«ATP(25)« 
4GAS(25*3>.C0STFH(2S«3)«FIT0D(25«3)«FITR(25«3)« 
6ACFD(25«3)«ACHS(25«3)«FINU(25«3«3)«FINHS(25«3«3)*RLS0(25«3*3> 
COMMON  SI(25>«S0(25)«SL(25)«ATRI(25) 

GO  TO  (100«200*300«400>«I0P 

- - GIVEN  STUDENT  INPUT  (STORED  IN  ARRAY  SO) 

100  DO  120  I-1«NCAT 

SI(I)>SO(I) 

120  S0(I)-SI(I)*(1  .-AYRd)) 

RETURN 

- -GIVEN  STUDENT  OUTPUT 
200  DO  220  1-1«NCAT 

220  SI(I)«S0(I)/(1 .-ATRCI >) 

RETURN 
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TABLE  14  (Cont) 
a.  Subroutine  STUDENT  (Cont) 


8362C 

2382 

2402 

2422 

2442 

2462 

2482C 

2502 

2522 

2542 

2562 

2582 

2602 

2622 

2642 

2662C 

2682C 

2702 

2722C 

2742 

2762 

2782 

2802 

2822 


• • GIVEN  THOUSAND  S FOR  ALL  A/C  FLYING  COSTS 
300  DO  320  I-1«NCAT 
T»0. 

N«NAC(I) 

DO  305  J-UN 

305  T»T+COSTFH(I* J)*ACHS(I* J) 

- - T-COST  PER  STUD  OUT 
IF(T.LE.O)GO  TO  310 
S0<I>«S0<I)*1000./T 
SI<I)«S0<I)/<1 .-ATR(I>) 

GO  TO  320 
310  S0<I>-0. 

SI(1)>0. 

320  CONTINUE 
RETURN 

SO  - NUN.  OF  A/C  OF  TYPE  ONE 

400  DO  420  1>1«NCAT 

FIND  STUD  OUTPUT /AIRCRAFT 
T-ACFDC I « 1 )*AFD* VX( I « 1 ) /ACHSt I « 1 ) 
SOtI>-SO(I>*T 

420  SI(I)-S0(I>/(1.-ATR(I)> 

RETURN 

END 


b.  Subroutine  NOYES 


2842  SUBROUTINE  NOYES (*««> 

2862  COMMON  DUM( 12) «NO«YES 

2882  ALPHA  NO# YES# N 

2902  10  INPUT  700#N 

2922  IF(N.EQ«N0)RETURN1 

2942  IF<N.EQ.YES)RETURN2 

2962  PRINT#'*  INVALID  REPLY 

2982  GO  TO  10 

3002  700  FORMAT(Al) 

3022  END 


- RETYPE" 
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VI.  PROGRAM  CRAW3 


PROGRAM  DESCRIPTION 

6.1  The  purpose  of  program  CRAW3  Is  to  calculate  and  print  the  category, 
aircraft  and  instructor  requirements , and  the  squadron  summary  if  the  user 
requests  it. 

6.2  Upon  entry  the  program  initializes  to  zero  the  variables  which  contain 
the  total  squadron  requirements . Next  subroutine  NAMSORT  is  called  to  make  a 
list  of  aircraft  types  and  associated  fuel  types  for  the  squadron.  Then  the 
program  goes  through  a loop  for  all  categories  and  calls  GENSLR  for  those  cate- 
gories having  a positive  student  output.  In  this  loop  the  first  argument  of 
GENLSR,  IX,  is  1 and  the  aircraft  statistics  are  calculated  and  printed.  In 

the  second  loop  IX  is  2 and  the  instructor  requirements  are  calculated  and 
printed . 

6.3  Subroutine  SQDSUM  is  called  if  ISW  / 1 and  squadron  summary  is 
printed.  If  ISW » 1 , the  call  to  SQDSUM  is  skipped.  Finally  question  8 is 
asked  and  the  program  checks  the  answer  and  transfers  control  to  the  proper 
program  along  wi«^h  the  appropriate  value  in  IS(1)  and  IS(2). 

SUBROUTINE  NAMSORT 

6.4  When  this  program  is  called,  a list  is  made  of  all  the  different  air- 
craft types  (SNPLA)  in  the  squadron  along  with  the  proper  fuel  type  (SNFUEL) 
for  the  aircraft  type.  First  the  aircraft  type  and  the  fuel  type  from  the  first 
category  are  placed  in  the  arrays  SNPLA  and  SNFUEL.  NACT  is  set  equal  to 
the  number  of  aircraft  types  in  the  category.  Then  the  aircraft  types  and  their 
corresponding  fuel  types  in  each  category  are  compared  with  those  in  this 
array.  If  there  is  a match,  the  aircraft  is  already  in  the  array.  If  there  is  no 
match,  the  new  aircraft  type  is  added  to  the  list.  The  total  number  of  aircraft 
types  is  checked  to  be  sure  it  does  not  exceed  three. 
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6.5  This  procedure  continues  until  all  categories  have  been  examined. 

An  error  message  is  printed  and  the  program  stops  if  a fourth  aircraft  type  is 
found  or  a fuel  type  for  an  aircraft  does  not  match. 

SUBROUTINE  GENLSR 

6.6  The  purpose  of  this  subroutine  is  to  calculate  and  print  aircraft  and 
instructor  requirements.  This  subroutine  has  two  arguments  IX  and  ICAT. 

Variable  IX  refers  to  the  part  of  the  subroutine  to  be  executed  (DC  = 1 is  for  air- 
craft calculations,  IX  = 2 is  for  instructs  calculations).  The  variable  ICAT 
refers  to  the  category  number. 

6.7  If  IX  = 1 . then  the  program  goes  to  the  aircraft  section.  First,  the 
variables  are  initialized  to  zero.  Then  the  flight  hours,  number  of  required 
aircraft,  fuel,  and  enlisted  men  are  calculated  as  a function  of  student  output. 
Next  the  values  are  added  to  the  arrays  for  the  squadron  total.  Finally  the  re- 
sults for  the  category  are  printed  and  control  returns  to  the  main  program. 

6.8  If  DC  = 2 when  the  subroutine  is  entered,  then  the  Instructor  calculation 
section  is  executed.  First,  the  appropriate  instructor  category  values  are 
initialized  to  zero.  Then,  based  on  the  student  output  and  the  instruction 

mix  , the  required  number  of  Instructor  pilots  (IP) , instructors  under  training 
(lUT) , and  others  (ACD/LSO/WST)  are  calculated . Then  the  values  are  added 
to  the  arrays  for  the  squadron  total.  Finally  the  results  for  the  category  are 
printed  and  control  returns  to  the  main  program . 

SUBROUTINE  SQDSUM 

6.9  The  purpose  of  SQDSUM  is  to  calculate  and  print  the  squadron  summary. 
VARIABLES  AND  COMMON 

6.10  More  variables  are  added  to  common  as  described  in  Table  1 5 . Also 
additional  variables  are  used  in  GENLSR. 
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a.  Subroutine  NAMSORT 


Enter 

NAMSORT 


Aircreft  Types  in 
Category  t 


Another  Category^ 


Compere 
Aircraft  Types 


^ Fouttd 
a Na«w  Type? 


''Fuel  ^ 
Typai  Chaek  ? 


FIGURE  6 (Cent) 
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FIGURE  6 (Cont) 
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c.  Subroutine  SQDSUM 


TABLE  15 


PRCX3RAM  CRAW3  VARIABLE  DICTIONARY 


Location 

Name 

Dimension 

Description 

Common 

SNPLA 

3 

Types  of  different  aircraft  in 
squadron 

Common 

SNFUEL 

3 

Fuel  associated  with  aircraft 
type  I in  squadron 

Common 

NACT 

1 

Total  number  of  different  aircraft 
types  in  squadron 

Common 

TAC 

3 

Total  aircraft  type  I required  for 
squadron 

Common 

TFH 

3 

Total  squadron  flight  hours  for 
aircraft  type  I 

Common 

TCOST 

3 

Total  squadron  cost  for  aircraft 
type  I 

Common 

TGAS 

3 

Total  fuel  for  squadron  for  aircraft 
type  I 

Common 

TFIN 

3 

Total  squadron  flight  instructors 
for  aircraft  type  I 

Common 

TIUT 

3 

Total  squadron  instructors  under 
training  for  aircraft  type  I 

Common 

TLSO 

3 

Total  ACD/LSO/WST  Instructors 
for  squadron  for  aircraft  type  I 

Common 

TEM 

3 

Total  enlisted  maintenance  men 
for  squadron  for  aircraft  type  I 

Common 

DUM 

14 

First  14  locations  of  common 

GENLSR 

CAC 

3 

Total  required  aircraft  of  type  I 
In  category 

GENLSR 

CFH 

3 

Category  flight  hours  for  aircraft 
type  I 

GENLSR 

CCOST 

3 

Category  flight  cost  for  aircraft 
type  I 

GENLSR 

CGAS 

3 

Category  fuel  for  aircraft  type  I 
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TABLE  IS  (Cont) 


Location  Name  Dimension  I Description 


GENLSR 

GINS 

3,3 

Gategory  instructors  aircraft  type  I, 
instruction  type  J 

GENLSR 

CIUT 

3,3 

Gategory  Instructors  under  training 
aircraft  type  I , instructor  type  J 

GENLSR 

CLSO 

3,3 

Gategory  AGD/LSO/WST  instructors 
for  aircraft  type  I,  instructor  type  J 

GENLSR 

GEM 

3 

Enlisted  men  required  for  aircraft 
type  I for  the  category 

SQDSUM 

TO 

1 

Total  enlisted  men 

SQDSUM 

FAGT 

1 

Factor  for  enlisted  administrative 

SQDSUM 

A 

1 

Number  of  administrative  personnel 
for  enlisted 

[ 


TABLE  16 

CRAW3  PROGRAM  AND  SUBROUTINE  DICTIONARY 


CRAW3 

Main  program  to  call  other  subroutines  and  transfer 
control  to  appropriate  program 

NAMSORT 

Makes  list  of  different  aircraft  types  in  the  squadron 

GENLSR 

Calculate  and  print  aircraft  and  instructor  requirements 
for  a category 

SQDSUM 

Prints  squadron  summary 

TABLE  17 

PROGRAM  CRAW3  USTING 


103C— PROGRAMS  CRAV3  CCALCULATBS  A/C  « INST.  ETC) 

123  COMMON  IY«ISV«LEVLSR«IS(7)«KILL«IBC«NO*YES 

143  COMMON  SV<2)«APD*W>Y«ALLSQDC30«2)«NPILE1«NSQD 

163C  - • . SQUADRON  VARIABLES  - • - 
183  COMMON  SQNAMC2)«NCAT*P(2#10) 

803C  - • -CATAQORY  VARIABLES  • - - 

823  COMMON  NAME(85*3)«NPLA<85«3)«NPUELC25#3>#NAC(25)#INSTMIX<25«9) 

243  COMMON  AMO(85«3)« VX(25«3}«PHADUR(25>#ATR(85>«ATP(25)« 

863  4QASC2S«3>«C0STPH(25«3>«F1T0D(85«3)«FITRC25»3)« 

883  «ACF0(2S#3>«ACMSC2S#3>#F1NU(25«3#3>»F1NHS(85«3»3)«RLS0(2S#3«3) 

303C  - - - 

383  COMMON  SI C85>«S0(85>#SLC8S)#ATRI (85) 

343  COMMON  SNPLA(3)#SNFUEL(3)«NACT« 

363  6 TACC3)«TFH(3)#TCOST(3)«TGAS(3)« 

383  6 TFIN(3)*TIUT(3)«TLS0(3)«TEM(3) 

403C 

483  DO  10  I«l«3 

443  TAC(1)>0. 

463  TFH(I)-0. 

483  TC0ST(1)>0. 

503  TGAS(I)-0. 

583  TFIN(I)>0. 

543  T1UT(I)*0. 

563  TEM(l)-0. 

583  10  TLS0(I)>0. 

603  CALL  NAMSORT 

683C 

643C  • • CATAGORY  SUMMARY 

663  PRINT  600 

683  PRINT  610 

703  DO  30  I>1«NCAT 

783  IF(S0(I).LE.0.)00  TO  30 

743  CALL  GENLSRd#!) 

763  30  CONTINUE 

783  PRINT  680 

803  PRINT  630 

883  DO  40  I-UNCAT 

843  IF(S0(I).LE.0.)G0  TO  40 

863  CALL  GENLSR(8«I) 

883  40  CONTINUE 


plp^ 


TABLE  17  (Cont) 
a.  Subroutine  NAMSORT 


1703 

1723 

1743 

1763C 

1783 

1803C 

1823 

1843 

1863 

1883 

1903C 

1923 

1943 

1963 

1983C 

2003 

2023 

2043 

2063 

2083 

2103C 

2123 

2143 

2163 

2183 

2203 

2223 

224 3C 

2263 

2283 

2303 

2323 

2343 

2363 

2383 

2403 

2423 


SUBROUTINE  NAMSORT 
COMMON  DUM(14> 

COMMON  SV(2)«AFD«VPY»ALLSQD(30*2)«NFILi:i«NSQD 

- SQUADRON  VARIABLES  - - - 

COMMON  SQNAM(2)#NCAT«F(2«10) 

- - -CATAGORY  VARIABLES  - - - 

COMMON  NAME(25«3)#NPLA(25«3>«NFUEL(25«3>>NAC(25)«INSTMIX<25«9 
COMMON  AM0<25«3>«VX(25«3)«PHADUR(25)«ATR(25>«ATP(25>« 
«GAS(2S«3>«C0STFH(2S«3>»FIT0D(2S«3)«FITRC25#3)« 

4ACFD(2S«3)#ACHS(25«3>«FINU(25*3«3>«FINHSC2S*3«3)«RLS0(25«3«3> 

COMMON  SI(25>*S0(2S)«SL(2S>«ATRI(25) 

COMMON  SNPLA(3)«SNFUEL(3)4.NACT 
ALPHA  SNPLA#NPLA«SNFUEL«NFUEL 

NACT«NAC(1> 

DO  10  I-UNACT 
SNFUELC I ) -NFUEL( 1 • I > 

10  SNPLA(1>-NPLA(1«1> 

I F ( NC AT . EQ . 1 ) RETURN 

DO  50  I>2«NCAT 
N«NAC(1 ) 

DO  30  J>1«N 
DO  20  K-UNACT 

IF(SNPLA(K)«EQ.NPLA(I«J>)GO  TO  25 
20  CONTINUE 

- - FOUND  A NEW  AIRCRAFT  TYPE 

NACT-NACT+l 

IF(NACT.QT*3)G0  TO  500 
SNPLAC  NACT ) -NPLA( I « J> 

SNFUELC  NACT  > -NFUEL ( I » J> 

GO  TO  30 

25  IF(SNFUEL(K>*NE.NFUEL(I«JnGO  TO  600 
30  CONTINUE 
50  CONTINUE 
RETURN 
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TABLE  17  (Cont) 

a.  Subroutine  NAMSORT  (Cont) 


2443C 

8463 

8483 

8503 

8583 

8543 

8563 

8583 

8603 

8683 

8643 

8663 

8683 

8703 

8783 


500  PRINT  510«(NAME(I#L>«L«1«3)«NPLA(I« J> 

PRINT  620 
STOP 

510  FORMATt//"  ERROR  IN»  ”#3A4/ 

A FOURTH  AIRCRAFT  TYPE  FOR  THE  SQUADRONt  ”,A4) 
600  PRINT  610«(NAME(I«L)«L>1«3>«NFUEL(I«J)«NPLA(I«J) 
PRINT  680 
STOP 

610  FORMATt//"  ERROR  INt 

FUEL  TYPE  *SA4*”  FOR  AIRCRAFT  ‘SAA/ 

«'*  DOES  NOT  MATCH  FUEL  ASSIGNMENTS  FOR  THIS*'/ 

«*«  AIRCRAFT  IN  PREVIOUS  CATEGORIES") 

680  FORMATC//"  ♦ CORRECT  DATA  FILE  AND  RERUN”///) 

END 
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TABLE  17  (Cont) 
b.  Subroutine  GENLSR 


2743 

2763 

2783 

280 3C 

2823 

2843C 

2863 

2883 

2903 

2923 

2943C 

2963 

2983 

3003 

3023 

3043C 

3063 

3083 

3103 

3123C 

3143 

3163 

3183C 

32030 

3223 

3243 

3263 

3283 

3303 

3323 

3343 

3363 

3383 

3403 

3423 

3443 

3463 

3483 

3503 

3523 


SUBROUTINE  GENLSR ( lX*lg AT) 

COMMON  DUMU4) 

COMMON  S V( 2 > « AFO#  WPY« ALLSQD( 30«  2 > « NFI LE 1 « NSQD 

- - - SQUADRON  VARIABLES  - - - 

COMMON  SQNAM(2)*NCAT«F(2«10> 

- - -CATA60RY  VARIABLES  - - - 

COMMON  NAME(25#3)#NPLA(25«3)«NFUEL(25«3)«NAC(25)#INSTMIXC25«9 
COMMON  AM0(25«3)«UX(25«3)«PHADUR(25)«ATR(25)«ATP(25>« 
«GAS(25«3>«C0STFH(25«3)«FIT0D(25«3)«FITR(25«3)« 
«ACFDC25«3>«ACHS(25«3>«FINU(25«3«3>«FINHS(2S#3«3)»RLS0(25«3«3) 

COMMON  SI(25)«S0<25>«SL(25)«ATRIC25> 

COMMON  SNPLA(3)*SNFUEL(3)«NACT« 

« TAC(3)#TFH(3)>TC0ST(3)^TGAS(3)# 

« TFIN(3)#TIUT<3)#TLS0<3)#TEM(3) 

DIMENSION  CACC3)#CFH(3)«CC0ST<3)«CGAS(3>« 

« CINST(3«3)«CIUT(3«3)«CLS0(3#3)«CEMC  t 
ALPHA  SNPLA#NPLA«SNFUEL»NFUEL 

N«NAC(ICAT) 

GO  TO  C10#200)«IX 

- - AIRCRAFT  STATISTICS  FOR  CAT 
10  DO  15  1-13 

CAC(I)-0. 

CFH(I)-0. 

CCOSTCD-O. 

CEM(1)«0. 

15  CGAS(1>«0. 

DO  30  I-1«N 

CFH ( I > -SO ( I C AT  > 4ACHS ( I C AT  « I > 

T -ACFD ( I C AT « 1 > *AFD*  UX  ( I C AT « I ) 

IF(T*LE«OOQO  TO  20 
CAC(I)-CFH(I)/T 

20  CCOSTd  )-C0STFH(ICAT#l  )*CFH(1  )/1000. 
CGAS(I)-GAS(ICAT«I)4ACHS(ICAT«I)/1000. 

CGAS(I)-CGAS(I)*SO(ICAT) 

CEM( I ) -AMOC ICAT# I )«CAC< 1 ) 

30  CFH(I)-CFH(1)/1000* 


1 

i 

; 
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TABLE  17  (Cent) 
b.  Subroutine  GENLSR  (Cent) 


3543C  - - UPDATE  SQUADRON  TOTAL 

3563  DO  50  I«1#N 

3583  DO  40  K« UNACT 

3603  IF(SNPLA(K).EQ.NPLA(ICAT«I>)GO  TO  45 

3623  40  CONTINUE 

3643  PRINT*'*  MACHINE  ERROR  IN  CRAV3/GENLSR  - RERUN  PROGRAM" 

3663  STOP 

3683  45  TAC(K)»TAC(K>+CAC(I) 

3703  TFH(K)»TFH(K)+CFH<I ) 

3723  TCOST(K)«TCOST(K)+CCOST(I ) 

3743  TGAS(K)-TGAS(K)+CGAS(I) 

3763  TEM(K>-TEM(K)+CEM(I> 

3783  50  CONTINUE 

3803  PRINT  600*(NAME(ICAT* J>«J>1*3)*NPLA(ICAT*1)*CAC(1>* 

3823  « CFH(l)*CCOST(i>*CGASa>*NFUELCICAT«l)«AMOCICAT*l> 

3843  IF<N.EQ.1)G0  TO  95 

3863  DO  60  I«2*N 

3883  60  PRINT  610*NPLA( ICAT* I )*CAC( I) *CFH( I ) * 

3903  6 CCOST(I>*CGAS(I>*NFUEL(ICAT*I>«AMO(ICAT*I> 

3923  95  RETURN 

394 3C 

3963C  INSTRUCTOR  STATISTICS 

3983  200  DO  210  1-1*3 

4003  DO  210  J-l*3 

4023  ClNST(I*J>-0* 

4043  ClUT(I*J)-0. 

4063  210  CLS0(l*J)-0. 

4083C  - - COMPUTE  FLT.  INST.  BY  A/C 

4103  K-0 

4123  DO  240  I-1*N 

4143  DO  230  J-l*3 

4163  K-3*(I-n-fJ 

4183  M-INSTMIX(ICAT*K> 

4203  1F(  (M.LE.0>.0R.(M.GT.3)  )G0  TO  230 

4223C  THUSt  1-A/C  TYPE  * M- INSTRUCTOR  TYPE 

4243  T-FINU(ICAT*M*1>4W(CICAT*1>«AFD 

4263  1F(T.LE.0.)G0  TO  230 

4283  CINST(I*M)-S0(ICAT>*F1NHS(ICAT*M*I)/T 

4303  230  CONTINUE 

4323  240  CONTINUE 


4 
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TABLE  17  (Cont) 
b.  Subroutine  GENLSR  (Cont) 


4363 

DO  244  I-1«N 

4383 

T«FIT0D(ICAT#1) 

4403 

IF(T.GT*0.)G0  TO  241 

4423 

T»0. 

4443 

GO  TO  242 

4463 

241 

T-F1TR(1CAT#I)/T 

4483 

242 

DO  244  M>1«3 

4503 

CJUTCI#M>-T*C1NST(I>M) 

4523 

X-RLSO(ICAT«H«I) 

4543 

IFCX.LE.O.)  GO  TO  244 

4563 

CLS0(1«M)-SL(ICAT>/X 

4583 

244 

CONTINUE 

4603C 

- - 

UPDATE  SQUADRON  TOTAL 

4623 

DO  280  M«l«3 

4643 

DO  280  I-l»3 

4663 

TF1N<M)«TFIN<M)+CINST<I#M> 

4683 

T1UT(M)-TIUT(M)+CIUT(1#M) 

4703 

TLSOC  M) -TLSO(H) ♦CLSOC 1 « M> 

4723 

280 

CONTINUE 

4743 

PRINT  700«(NAMEaCAT#J>«J-l«3)«NPLA(ICAT«l>« 

4763 

6(CINST(l«J)«J-i«3>#(CIUT(UJ)«J-l«3)« 

4783 

«(CLS0(1«J)#J-1#3> 

4803 

IF(N.EQ.l)  GO  TO  295 

4823 

DO  285  I«2«N 

4843 

285 

PRINT  710«NPLA(ICAT«I>#(CINST(I«J)«J«1«3>« 

4863 

« (C1UT(I«J)#J-1«3)«(CLS0(I.J)«J-1«3> 

4883 

295 

RETURN 

4903C 

4923 

600 

FORHATC 1X«3A4« 1X«A4«4( 1X«F8*2>« 1X«A4« 1X«F7.2) 

4943 

610 

FORMATC 14X«A4«4( 1X«F8.2># 1X«A4« 1X«F7.2) 

4963 

700 

F0RMAT(1X«3A4«1X«A4«9F6.2> 

4983 

710 

FORMAT ( 1 4X « A4 « 9F6 *2 ) 

5003 

END 
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TABLE  17  (Cont) 
c.  Subroutine  SQDSUM 


SUBROUTINE  SQDSUM 

S043  COMMON  IY« ISV«LEVLSR« ISC 7)#KILL« XBC#NO#YES 

5063  COMMON  SVC2>«AFD« V1>Y«ALLSQD(30«2>#NFILE1«NSQD 

5083C  SQUADRON  VARIABLES  

5103  COMMON  SQNAM<2>#NCAT«F(2« 10) 

5123C  'CATAGORY  VARIABLES  • 

5143  COMMON  NAME<25«3)*NPLACB5«3)«NFUEL(25#3>«NAC(25>« INSTMIX<25«9 

5163  COMMON  AM0<25«3)« VX(25«3>«PHA0UR(25>«ATR(25>«ATP(25>« 

5183  46ASC25«3)«C0STFH(25«3>«FIT0DC25«3)«FITRC25«3>« 

5203  4ACFDC25«3>«ACHSC25«3)*FINU(25«3«3>«FINHS(25#3«3)«RLS0(25»3«3> 

5223C  - - - 

5243  COMMON  SI <25>«S0(25>#SL(25)«ATRI (25) 

5263  COMMON  SNPLA(3)#SNFUEL(3)«NACT« 

5283  « TAC(3)#TFH(3)«TC0ST(3)«TQAS(3)« 

5303  « TFIN(3)«TIUT(3)*TLS0(3)*TEM(3) 

5323  DIMENSION  T(3) 

5343  PRINT#"OFFICERS” 

5363  PRINT  700 

5383  PRINT  710«(TFIN(I )«I«1«3) 

5403  PRINT  720«CTIUT(I)«I«1«3)«(TLS0(I)«I-U3) 

5423  PRINT  750«F( 1« 1 )»F( 1«2) 

5443C  - - NOV  GET  SUBTOTAL 

5463  T(  1 )-TFINC  1 )+TIUT<  1 )+TLSO(  1 )<fF(  1 « 1 ) 

5483  T(2)-TFIN(2)+TIUT(2)+TLS0(2)+F(1#2) 

5503  T(3)«TFIN<3)+TIUTC3)+TLS0<3) 

5523  PRINT  760« (T( I )< I -1 «3) 

5543  T0«T<1)+TC2)+T<3) 

5563  T0-T04-F(l«3)4>F(l«4)-fF(l#5) 

5583  PRINT  770«F( 1 «3)«F( 1 *4) «F( 1 «5)«T0 

560 3C 


TABLE  17  (Cont) 
c.  Subroutine  SQDSUM  (Cont) 


562 3C 

5643 

5663 

5683 

5703 

5783 

5743 

5763 

5783 

580 3C 

5823C 

5843 

5863 

5883 

5903 

5923 

5943 

5963 

5983 

6003 

6023 

6043 

6063 

6083 

6103 

6123 

6143C 


- - NOV  GIVE  A/C  SUMMARY 
PRINT#  ••AIRCRAFT’* 

PRINT  800#(SNPLA(I)#1-1#NACT) 
PRINT  810«(TAC(I)«I>1#NACT> 
PRINT  813«CTFK(I)#I-1#NACT) 
PRINT  815#(TC0ST(I)#I>1#NACT> 
PRINT  820#(SNPUEL(1>#I-1«NACT> 
PRINT  825#(TGAS(1)#I-1«NACT> 
PRINT  830#(TEM(I)#I-1#NACT) 

NOV  GIVE  ENLISTED  SUPPORT 

PRINT  900 

T0-TEM( 1 )+TEM(2)+TEM(3) 

FACT- 1 #8 

IF(T0-200.)70«50#40 
40  IF(TO-400.>50#60#60 
50  FACT- 1.1 5 
GO  TO  70 
60  FACT-1.10 
70  A-T0*CFACT-1 .) 

PRINT  910#  T0#A 
PRINT  920#(F(2#I)#I-1#5) 
TO-TO+A 
DO  80  I-l#5 
80  T0-T0<fF(2#I> 

PRINT  930#T0 
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TABLE  17  (Cont) 
c.  Subroutine  SQDSUM  (Cont) 


6163'  700  rORMAK-  AVXAT0RS**#8X#-IP”#5X,”INF0~#4X#’*IC/N»'> 

6183  710  F0RMATC5X#"INST.’*#5X#4r8.8) 

6803  720  F0RMAT<5X#**IUT***7X#3F8.2/5X#’*ACD/LS0/WSrSF7.2#8F8.8> 

6883  750  F0RMAT(5X«"ADHIN.'*4X«8F8.8> 

6843  760  FORMAT (15X« 3 (8H  )/«  *«SUBT0TAL'*«4X«4F8 •S) 

6863  770  FORMATt**  N0N-AV1AT0RS”/4X#**0RD.ADMIN.’SF8 .2/ 

688  3 44X«**MAINT.QRD.***F8.8/ 

6303  44X«**0THER  *SF8.2/ 

6383  »*•  **T0TAL  OFFICERS  I '•#F8.8//> 

6343C 

6363  800  F0RHAT<4X«’*TYPE**«8X«3(A4#4X>  > 

6383  810  F(mMAT(4X«**NUM.'*«4X#3F8»8) 

6403  813  FORMAT ( 8X«**HRS.<1 000 >**«3F8 .8 ) 

648  3 815  FORMAT < 8X«**C0ST(1 000 )**«3F8  •8) 

6443  880  FORMAT C4X«**FUEL**#8X«  3 (A4«4X>) 

6463  885  FORMAT (8X«**GALS(  1000)**#  3F8  •8) 

6483  830  F0RMAT(1X«**MAIM.ENL.**«8X«3F8*8) 

6503C 

6583  900  FORMATt//**  ENLISTED**) 

6543  910  F0RMAT<4X#**MAINT.**#5X#F7.8/4X#**ADMXN.**,5X#7.2> 

6563  980  F0RMAT<4X«**TRNG«SUPP.  **«F7.8/ 

6583  4 4X#**DET.  SUPP.  **#F7.8/ 

6603  A 4X#**SXTE  SUPP.  **#F7.2/ 

6683  6 4X«**ADMN.SUPP*  **«F7«8/ 

6643  4 4X«**CREVS**«6X«F7.2) 

6663  930  FORMATt**  *4r*T0TAL**«5X«F8«8) 

6683  RETURN  i END 


I 

I 


VII.  PRCX3RAM  XHUNT 


PROGRAM  DESCRIPTION 

7.1  The  purpose  of  program  XHUNT  is  to  read  and  print  various  lines  from 
a data  file  that  has  a structure  similar  to  that  of  SQUAD*  1 or  SQUAD*2.  Pro- 
gram XHUNT  asks  the  \iser  the  appropriate  questions,  validates  the  user  res- 
ponse, opens  the  data  file,  then  calls  subroutine  SUB.  Upon  returning  from 
the  subroutine  by  a nonstandard  return,  the  data  file  is  closed  and  the  program 
stops . 

SUBROUTINE  SUB 

7.2  The  purpose  of  subroutine  SUB  is  to  read  the  data  file,  and  print  out 
the  appropriate  line  numbers.  The  arguments  for  the  subroutine  are  I and  L 
where  I is  the  print  option  and  L is  the  category  data  line  reference  number. 

A nonstandard  return  is  also  used. 

7.4  If  I » 1 , the  first  line  of  data  for  each  squadron  is  read  and  printed 
until  the  name  is  "END]ij"(i.e. , the  line  number,  squadron  name,  and  number 
of  categories  (N)  are  read  and  printed) . The  name  is  then  checked  for  "ENDJJ" 
indicating  an  end  of  data  file.  If  it  is  not  the  end  of  the  data  file,  then  the 
next  2 4 20N  data  lines  are  skipped  (l.e. , 2 for  next  2 lines  of  squadron  data 
plus  20  lines  for  each  category.)  The  lines  must  be  read,  but  nothing  is  done 
with  the  data. 

7.5  IfI*2or3,  then  a categ(xv  data  line  is  printed.  In  this  case  after 
the  squadron  name  is  read,  the  next  two  lines  of  squadron  data  are  skipped. 

Then  indices  of  the  required  data  are  set  up.  The  appropriate  number  of  category 
data  lines  are  skipped,  the  required  line  is  read  under  an  alpha  format  into  the 
array  C.  Thus,  only  a maximum  of  the  first  40  characters,  including  the  line 
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number,  can  be  read  and  printed.  Next  the  subroutine  determines  how  many 
trailing  words  in  C are  blank  and  they  are  not  printed.  Then  the  remaining  data 
lines  in  the  category  are  skipped. 
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TABLE  18 

PROGRAM  XHUNT  VARIABLE  DICTIONARY 


I I 

4 I 


Variable 

Name 

Description 

T 

File  name 

EOF 

Contains  characters  "ENDli^" 

C 

Array  into  which  data  are  read 

I 

Print  option  between  1 and  3 

L 

Category  data  line  number  between 
1 and  20 

IL 

Data  file  line  number 

NAMl 

First  4 characters  of  SQUADRON 
name 

NAM2 

Last  4 characters  of  SQUADRON 
name 

N 

Number  of  categories  in  squadron 

NI 

Number  of  lines  to  be  skipped  before 
required  category  data 

N2 

Number  of  lines  to  be  skipped  to  get 
to  next  category  name 

K2 

Number  of  largest  nonblank  word  in 
array  C 

TABLE  19 

XHUNT  PROGRAM  AND  SUBROUTINE  DICTIONARY 


XHUNT 

Asks  questions , accepts 

input,  opens  and  closes 

,r 

data  file 

SUB 

Reads  the  data  file  and 
prints  the  data 

i 

i 

II 


lOOC 

HOC 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210C 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360C 

370 

380 

390 

400 

410 

420 

430 

440 

450 


TABLE  20 

PROGRAM  XHUNT  LISTING 

— PROGRAMI  XHUNT  (READ  4 PRINT  DATA  FILE  LINES) 

FOR  FILES  SQUAD* 1 AND  SQUAD*2  OR  COPIES 
COMMON  T«E0F«C(10) 

ALPHA  EOF«C 
FILENAME  T 
EOF>**END  •• 

PRINT  800 
10  INPUT* I 

IF((I.QE*1>.AND.(I.LE.3))G0  TO  20 
PRINT  810 
60  TO  10 

20  PRINT  820 
INPUT. T 
OPENFILE  T 
REWIND  T 

IF(I.EQ.l)  CALL  SUB(SIOO.I.O) 

IF(I*EQ«2>  CALL  SUBCSIOO. I . 1 > 

PRINT  830 
30  INPUT.L 

IF((L.aE»l>.AND.(L.LE.20)>Q0  TO  40 
PRINT  810 
GO  TO  30 

40  CALL  SUB(SIOO.I.L) 

100  CLOSEFILE  T 
PRINT  850 

800  FORMATC**  ENTER  PRINT  OPTIONt’V 
«**  1 SQUAD  NAME  ONLY"/ 

«"  2 SQUAD  AND  CAT  NAME"/ 

4"  3 SQUAD  NAME  AND  CAT  DATA  LINE  NO.  "> 

810  FORMATC"  INVALID  REPLY  - RETYPE") 

820  FORMATC"  ENTER  FILE  NAME  ") 

830  FORMATC"  ENTER  DATA  LINE  NO.  ") 

850  FmMATC//) 

STOP! END 
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TABLE  20  (Cont) 
Subroutine  SUB 


460 

SUBROUTINE  SUB(*«I«L> 

470 

COmON  T«E0F«C(10> 

480 

ALPHA  E0F«C«NAM1«NAM8 

490 

FILENAME  T 

SOOC 

510 

10 

IFCI  •6E.8>PRINT«**  ” 

580 

READ(T#700)IL«NAM1«NAM8«N 

530 

PRINT  708«IL#NAM1«NAM8«N 

540 

IFCNAMl .EQ.EOFIGO  TO  100 

550 

GO  TO  (80*50«50>«I 

560C 

- - 

- • SQUAD  NAME  ONLY 

570 

80 

M>8«80*N 

580 

DO  85  J-1«M 

590 

85 

READ(T«701)IL 

600 

GO  TO  10 

610C 

- - 

OTHER  OPTION 

680 

50 

READ(T«701>IL 

630 

READ(T«701>IL 

640 

Nl-L-1 

650 

N8>80*L 

660C 

- - 

- - CYCLE  FOR  EACH  CAT 

670 

IFCN.LE.07G0  TO  10 

680 

DO  80  18-1 «N 

690 

IF(N1 .EO.O)GO  TO  60 

700 

DO  55  J-1«N1 

710 

55 

READ(T«701)IL 

780 

60 

READCT«705)C 

730C 

m m 

- DELETE  TRAILING  BLANKS  IN  C ARRAY 

740 

DO  65  Kl-l«10 

750 

K8-11*K1 

760 

IF(CCK8).NE.**  ”)G0  TO  70 

770 

65 

CONTINUE 

780 

70 

PRINT  706«(C(K)«K-1*K8) 

790 

1F(N8.EQ.0>G0  TO  80 

800 

DO  75  J-1«N8 

810 

75 

READ(T«701)1L 

880 

80 

CONTINUE 

830 

GO  TO  10 

840 

100 

RETURN 1 

8SOC 

860 

TOO 

FORMAT! I4« 1X«8A4« 14) 

870 

701 

FORMATCV) 

880 

708 

FORMAT! 1X*I4* 1X.8A4* 14) 

880 

705 

FORMAT! 10A4) 

900 

706 

FORMAT C IX# 10 A4> 

910 

END 
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